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I. INTRODUCTION 


A. BACKGROUND 


Modern military communications systems are increasingly 
adopting the digital method of transmitting voice and data. 
The reasons are obvious. Several kinds of technology such 
as VLSI technology, microprocessor and associated memory 
technology, time division switching technology, digital 
transmission, voice digitization technique, surface acoustic 
wave technology (SAW) and new software technology all 


Strongly related to digital communications systems have 


advanced remarkably. This has resulted in significane 
reductions in data processing costs, and in particule 
communications support. From the operational point of view, 


digital communications offers better signal quality at the 
expense of larger bandwidth over analog communications by 
reproducing accurately a sequence of electronic pulses (or 
“bits") at the receiver. When digital systems are operated 
in multiple-hop networks, signal regeneration and signal 
processing do not cause an undue amount of degradation in 
the signal quality, whereas when analog systems are operated 
in the same networks, noise accumulates. Another advantage 
of digital communications systems is that they generally 
offer higher carrier to interference ratio than analog 
communications systems do under the same operating 


conditions. 


Digital radio networks or packet radio networks become a 
natural choice to provide efficient communications among a 
large number of mobile users in a military tdactireas 
environment. In addition, the RF (radio frequency) waveform 


used by packet radios could provide resistance to jamming, 
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low probability of intercept (LPI) and low probability of 
recognition (LPR) for secure tactical use. This subject 


will be treated in detail in a later chapter. 


In a packet radio network, all users are assumed to 
share a common broadcasting radio frequency and access to 
the network is controlled by microprocessors in the radios. 
The use of computer control for channel access can lead to a 
high throughput and low delay means of interconnection for 
the community of users. It also allows multiple users to 
Simultaneously access a channel without causing much 
degradation in the performance of any individual user. Note 
that the basic operation of the network is transparent to 
the user. The user only inputs the message (i.e. voice or 
data) to be delivered with the necessary addressing 
information, andthe network handles all other aspects of 


routing and reliable delivery of message [Ref. 1]. 


It is worth mentioning that the current communications 
requirements in military applications are predominately for 
voice. This is especially true for military tactical or 
field operations. We shall therefore focus our study on how 
to provide efficient and reliable voice communications over 


packet radio networks. 


B. SCOPE OF RESEARCH 


Packet radio networks provide multi-access services. A 
Signal generated by a transmitter is received over a wide 
area by a number of receivers; several transmitters operated 
in a network may transmit signals simultaneously on a common 
carrier frequency. If two signals at the same broadcasting 
frequency overlap in time at a receiver, we could use CDMA 
(code division multiple access), a spread spectrum 


technique, to separate them and receive them correctly. 


i Lil 


However, if two neighbors transmit at the same time to each 
other, destructive interference occurs; and in this case we 
assume that neither will be received correctly. A means for 
controlling this is for each neighboring radio to transmit 
in a different time slot. This suggests the use of a TDMA 
(time division multiple access) slot assignment scheme for 


multiplexing in a packet radio environment. 
The main objectives of this thesis are: 


1. to discuss the use of packet virtual cireu1e (eee 


techniques for voice communications in radio 
networks. . 
2. to present a comprehensive study of the operating 


capabilities of a TDMA/CDMA hybrid system and its 


operating conditions in the packet radio network. 


3. to propose and evaluate a simple but efficient time 
slot assignment algorithm for the packet virtual 
circuits. The performance of this proposed algorithm 
is compared with that of an algorithm used by 


Tritchler in 1983 by computer simulation in a simple 


network. 
4. to understand the main differences between wire line 
networks and packet radio networks, and to 


investigate how to use Erlang's B formula in 
characterizing voice traffic in the packet radio 


network. 


5. to develop a method to measure the availability and 
transmission capacity of the inter-node links in the 
packet radio network. These results allow the YEN 
routing algorithm to produce desired path 
assignments aiming at regulating and optimizing 


traffic flow in the network aseae woo 


he 


to examine the impact of various path updating 
periods with this flow control mechanism on the 
network performance (in terms of the desired grade 
of service). These activities are Simulated with a 
richly connected radio network in the SIMSCRIPT 
language for execution on the IBM 3033 system. 


is: 


II. NETWORK MODELING 


A. CLASSIFICATION OF NETWORKS 


Communication networks can be classified according to 
the type of function or service they offer [Ret J 25 
Networks that provide communications among all users are 
called switched communication networks. Examples of switched 
communications networks are airline message-exchange 
networks, Telephone networks and Telex networks. The 


nonswitched networks provide communication between the user 


and the network only. Timesharing networks , satellite and 
television broadcasting metworks are examples of this 
category. From these examples, it is obvious’ that packet 
radio networks fall into the category of Switched 
communications networks. Three major types of switched 
communication networks can be readily found in the 
literature. We will briefly describe each of these networks 


here. They are 

Le > GieewiEe Switched networks that provide fixed 
connections through the networks between two users 
for the duration of information exchange. 

2. packet switched networks that allow the transfer of 
information between two users through the routing of 
packets in the networks. Packets are usually 
processed and switched in a store and forward manner 
according to the FIFO (first eee first out 
diseip vine. 

3. message switched networks that receive and store the 
entire message in secondary storage at each node, 
and then transmit it to the neighboring node when 


the output link becomes available. 
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im thas thesis, we study a circuit-switching like 
network for voice communications. That 1s, voice is 
digitized and packetized before transmission. Data flow in 
the networks is in packetized form, but virtual connections 
carry the voice traffic. This technique is known as packet 
mmertual circuit [Refs. 1,3]. It is used to set up a fixed 
connection through the network for the duration of a voice 
conversation. These connections are explicitly 
disestablished by a cancel packet when the called party or 
the calling party hangs up. Note that the overhead for 
establishment and disestablishment of the connections are 


negligible as compared with the durations of voice sessions. 


Through the use of a time slot assignment scheme, as 
presented in the next chapter. this approach offers better 
utilization of the channel as compared with pure circuit 
Switching. Since voice conversation is real time, voice 
packets must be received in the order in which they are 
transmitted and with uniform and constant end-to-end delay. 
Nonuniform end-to-end delays of a fraction of a second in 
voice traffic become noticeable and are not desireable. 
During peak activity periods, pure packet switching using a 
store and forward process causes excessive nonuniform 


end-to-end delays for the voice traffic and affects voice 


intelligibly. Pure packet switching is therefore not 
Suitable for voice communications. Thus, we consider packet 
vartual Cl remit. to be the best enhance tor voice 


communications over radio networks. 


B. NETWORK TOPOLOGY 


All communications networks may be viewed as composed of 
a set of nodes and links. Figure 2.1 illustrates a simple 
network consisting of four nodes and links. Nodes are the 


Switching elements for the communications and links connect 


ies) 


pairs of nodes. From the functional point of "view, pene 
network provides a useful service to the users, whereas 
nodes provide necessary functions required by the system, 


and links provide communications among nodes. 


Link 





Figure 2.1 A Communications Network 


Throughout this thesis, we will make the following 
assumptions about a node, its neighbors, and a link. A node 
is a transceiver (receiver-transmitter) with processing 
capability and a clock. Many functions can be performed 
Simultaneously by parallel processors at’ each node. All 
nodes in the network have exactly the same capabilities. 
Each node may process a given message (packetized voice) 
differently depending on whether it is a destination node, 
source node or intermediate node. When one node can pass 
traffic directly to another node, we say that the nodes are 
neighbors. Each node in the network is allowed to have a 
small number of neighbors, and has a transmission range that 


is small compared to the diameter of the network. Thus 
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several communications can be supported simultaneously 
across the network. A link exists between two nodes 


whenever two way communications is possible between them. 


Communication in a radio network is by means of antenna 
transmissions. If we assume the use of omni-directional 
antennas for communications, a transmisSion could then be 
received by many other nodes besides the addressed node; any 
node receiving traffic not addressed to it will ignore the 
message. With the use of code division multiplexing 
technique, two or more links to a node may exist and operate 


Simultaneously. 


As the number of nodes increases, the number of ways one 
can interconnect the various nodes increased rapidly. That 
is, many topologies are possible for a network. We will not 
discuss the efficiency of each of these topologies. Instead, 
we will just briefly describe a number of network topologies 
that can be readily found in the literature and their 
possible military applications. They are 

1. fully connected topology 


2. minimal spanning tree topology 


3. single-center, Single-star topology or centralized 
topology 

4. single-center, multidrop topology 

5. multicenter, multistar topology or decentralized 
topology 

6. multicenter, multidrop topology or decentralized 
topology 


fea LOoop or ring topology 


In military applications, Strategic and tactical 
networks may consists of one or more of the above 
topologies. Tactical networks commonly employ decentralized 
topologies. 
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abot emer illustrates a fully connected network 
topology. It shows a direct connection between every pair of 
nodes in the network. The number of links required for such 
a Structure is proportional to the square of N where N is 


the number of nodes in the network. This topology provides 


better response time and throughput than any other 
topologies. Figure 2.3 illustrates a minimal spanning tree 
topology. This topology uses a minimun number of links to 


construct a network. 





Figure 2.2 A Fully Connected Network 


Figure 2.4 illustrates a single-center, Single-star 
topology. This network can be found in military fire control 
operations. Figure 2.5 shows A single-center, multidrop 
topology which is a multilevel, hierachical network. Army 


battalion radio networks use similiar configurations. 
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Figure 2.3 A Least-link Network 





Figure 2.4 A Single-center Single-star Network 


We 





Paigtire 225 A Single-center Multidrop Network 


Figure, 2.6 “and 2.7 [i ¥iustrate two versions of a 
decentralized topology. These are widely used in the 
private, corporate voice and data networks. These topologies 
are also commonly uSed in larger military radio networks. 
Figure 2.8 illustrates a ring topology. This topology poses 
many difficulties in terms OF implementation fan 
bidirectional information flow. Many researchers have 
worked on this problem. A variety of rings such as token 
rings, contention rings, slotted rings and register 
Insertion rings are discussed in the literature. 
[Refs. 4,5,6] 
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Figure 2.6 A Multicenter Multistar Network 





Eucure (2. / A Multicenter Multidrop Network 


Za 





Figure 2.8 A Loop Network 
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Pal COMMUNTGATIONS TECHNIQUES 


A. MULTIPLE ACCESSING TECHNIQUE 


The technique of transmitting and receiving a number of 
different signals over a single communication path without 


intefering with each other's signal is referred to as 


multiple access. By sharing the same communications path 
with other signals, the cost per bit transmitted may be 
effectively reduced, even taking account of the increased 


hardware complexity. The cost effectiveness of the system is 
based on the average loading of all the communications 
links. If the overall link utilization is very low, multiple 


access technique may prove to be inefficient. 


There are two widely used multiple access techniques, 
namely, frequency division multiple access (FDMA) and time 
division multiple access (TDMA). In FDMA, all users share 
the frequency spectrum of a communications path and transmit 
Simultaneously. Note that each user is allocated a unique 
frequency band. mete the full bandwidth W of the 
communications path is divided into N users (or N channels), 
then each user has the frequency bandwith of W/N. Moreover, 
each user can transmit only at speeds less than _ the 
frequency slot of W/N. The limitation is due to the need of 
small guard bands between adjacent channels to prevent any 
Sideband signals from overlapping. In TDMA, all users occupy 
the same RF bandwidth, but transmit sequentially in time. 
Finally, if we allow users to occupy the same RF bandwidth 
and also transmit simultaneously over a Single 
communications path, some means of separating the signals at 
the receiver must’. be used. Code division multiple access 


(CDMA) has this capability and is our choice. 
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In CDMA (also termed direct sequence spread spectrum), 
the signal's spectrum is spread over a radio frequency 
channel greater than that necessary to transmit the 
information. For example, 64 kbps packetized voice may be 
modulated into a bandwidth of 3.2 MHz rather than 128 KHz. 
The band spreading is accomplished by means of a PN 
(pseudo-random) code which is independent ona the 
information. The same code is used at the receiver to 
correlate with the incoming signal and recover the baseband 
information. More than one correlator could be used at the 
receiver to receive different signals simultaneously and 


recover them separately. 


References 7, 8, 9 and others cover many other spectrum 
techniques such as time hopping and frequency hopping, these 
are not relevant to our study, and we shall not discuss 
them. 


B. TDMA/CDMA HYBRID SCHEME 


The main advantage of TDMA relative to FDMA is’ the 
number of carrier modulation units involved. In TDMA, only 
one carrier modulation unit is needed, whereas in FDMA each 
channel requires a Separate carrier modulation unit, and 
therefore N such units are needed. The most important 
aspect of TDMA is that it does not have intermodulation 


problem and only performs Simple processing on an incoming 


message before relaying to the next node. That is, TDMA 
does not require any analog to digital conversion in 
relaying messages [Ref. 10]. The major problem of TDMA is 
that it is vulnerable to multipath interference. Since CDMA 


is a spread spectrum technique, we can incorporate CDMA into 
TDMA to overcome this problem. We should note that this 
hybrid technique (TDMA/ CDMA ) requires accurate 


synchronization of all the nodes in a packet radio network. 
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In this hybrid scheme, timteme lSaedimided. into fixed 
duration frames and each frame is further divided into a 
number of equal duration time slots. For example, in our 
work a frame consists of 12 slots and has duration of 125 
micro-seconds; thus there exist 8000 frames per second and 
12 * 8000 slots per second. Each frame is used to carry a 
voice packet consisting of a number of bits and each of 
these bits is modulated with a spreading code before 
transmission. A conceptual implementation of this hybrid 
scheme in a packet radio is shown on the next page (Figure 


eel). 


C. ADDRESSING 


As shown in Figure 3.1, each node is assigned a 
pseudonoise (PN) code as its identity. Each node must 
therefore know about all its neighbors codes in order to 
receive their messages correctly. This provides message 
privacy. That is, all packets transmitted or relayed by a 
node to its neighbors will be modulated with the 
transmitting node's own code sequence to produce the desired 
wideband signals. At the receiver, the received wideband 
Signals are correlated with a replica of the PN code so as 
to recover the packets correctly. In the case of relay 
meatfic, a new wideband signal will be generated and 
retransmitted to the neighbor along the best path to the 
destination. Since a different correlator is dedicated to 
receiving messages from each neighbor, the number of 
correlators needed at the receiver of each node must. be 


equal to the total number of its neighbors. 


To recover the baseband information accurately, these 
codes should provide autocorrelations with low sidelobes and 
with large amplitude spikes of narrow width. Each code 


Should also have low cross correlation with the codes of the 
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other users so that they do not interfere with each other. 
RK Gold in 1967 [Ref. 11] proposed an elegant way to 
generate good codes. The key for generating Gold codes is 
to find, for a given maximal length sequence , another equal 
length maximal length sequence (MLS) that, together with the 
first one, forms a "prefered pair". Note that maximal length 
sequence could be easily generated by N stages feedback 
shift registers. A Gold code will then be formed by taking 
the XOR (modulo-2 sum) of these two sequences. ASEOe a) 
number of 2" + 1 different Gold codes can be generated from 
this prefered pair. An interesting property about these 
Gold codes is that all cross correlations are bounded. If N 
is sufficiently large, these cross correlations are 
extremely low relative to the peak amplitudes of each of the 
autocorrelations. This keeps bit error rate (BER) of the 
system extremely low if the input signal to noise ratio is 
sufficiently high. Bit error rate is commonly used_ to 
measure the effectiveness of a digital communications system 


in the presence of noise and interference. 


D. INTERFERENCE REJECTION 


As alluded to in the previous sections, a TDMA/CDMA 
packet radio system uses direct sequence spreading signals 
for communications. Due to the inherent processing gain of 
the system, the effect of narrow-band interference can be 
reduced significantly. Processing gain (PG) is used in 
Spread spectrum systems to measure the effectiveness of the 
system against noise and interference. It is defined as the 
ratio between the signal to noise or interference before the 
code correlator (or matched filter) and after the 
correlator. It is equal to the length of the PN’ code 
sequence used for an information bit (or the number of chips 


in a bit), that is, PG = L, where L is the number of chips 
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eyene pale The correlation of the received signal with the 
replica of the PN code reduces the level of the narrow-band 
interference by spreading it across the frequency band 
occupied by the wideband signal. The interference becomes a 
very low noise with a relatively flat spectrum. Conversely, 
the correlation operation collapses the desired signal to 
the information Signal bandwidth. Thus, the effects of 
interference due to other users and intentional jamming can 
be suppressed considerably through the use of thule 
communications technique. The allowable jamming to Signal 
(J/S)dB can be determined by 


(J/S)dB = (PG - (S/N)out)dB 


where (S/N)out is the required signal to noise ratio to 
realize a desired BER. For example, if the processing gain 
is 20 dB and the output signal to noise ratio requires 10 dB 
for 107% BER, then (J/S)dB = 20 - 10 = 10 dB. That ase 


Signals can be detected reliably even when the interference 


is 10 times greater than the input signal power. This a 
certainly a powerful means to attenuate and reject 
interference. 


The TDMA/CDMA technique is also very effective sem 
overcoming multipath interference or intersymbol 
interference. Multiple interfering Signals due EG 
reflections from geographical features or man-made objects 
will arrive at the receiver with different time delays and 
different amplitudes. These signals will be rejected by the 
matched filter at the receiver due to the cross correlation 
operation. That 18, the correlation between the spreading 
code and a delayed version of the transmitted signal 
produces a very small voltage level relative to that of the 
direct transmitted signal if the delay is more than a chip's 


duration. 
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In short, a TDMA/CDMA system provides better utilization 
of channel, selective addressing capability for multiple 
msers, low probability of interception, anti-interference 
and especially antijam capability ina hostile electronic 


warfare environment. 


E. A PROPOSED TIME SLOT ASSIGNMENT ALGORITHM 


Based on the capabilities of the TDMA/CDMA hybrid 
scheme, it is reasonable for us to assume that intelligible 
voice communications could always be effected if the links 
and particularly the time slots associated with each link 
are available. We should next recognize that the user 
requirements for communications is a random time process. 
To achieve high call carrying capability in a network, we 
need an efficient time slot assignment scheme’ to place and 
establish each call swiftly and correctly. If a call request 
is not successful due to the unavailability of a time slot 
between the calling node and the called node, a busy tone 
will be issued to the _  usSer, and his call request is 


immediately cleared from the system. 


We further state the following conditions for operation 
of a packet radio network using TDMA/CDMA. Persp vote al la 
node is not allowed to transmit and receive simultaneously 
ina slot. It can either transmit or receive at a time. 
However, because of the CDMA technique involved, nodes can 
receive signals from more than one neighbor simultaneously. 
The maximun number of received signals that can be stacked 
imjea Slot is defined as slot depth. Borwe slots and 125 
micro-seconds per frame, the desirable slot depth (weighting 
complexity versus performance ) will be shown to be 2 ina 
later chapter. Next, we assume that each node is listening 
mo its neighbors in any. slot in which it is not 


transmitting. A virtual circuit is constructed for each call 
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consisting of a pair of time slots on each link in the cham 
connecting the call source and destination. The slots 
associated with each virtual circuit will be reserved for 
the duration of the call. Finally, we assume that’ the 
connectivity of the network is static in such a manner that 
all links remain intact for the duration of each 


conversation and each assignment process. 


The desired assignment algorithm should attempt to 
distribute the transmitted and received signals uniformly 
over all slots of a frame and maximize the number of 
successful calls established across’ the network. A most 
important aspect is that it should be easy to implement and 


yet efficient. 


With all these constraints and requirements in mind, we 
propose a random process time slot assignment algorithm with 
time-out procedure. We will demonstrate the operation of 
this proposed algorithm by example. A simple example is to 
consider how a pair of time slots for a calling node and a 
called node are arranged for a virtual circuit. Figure 3.2 


Shows time slot assignments per frame for these two nodes 


prior to a new call@abtenpe: The symbol xX-B and R-B 
represents a slot in which a node is transmitting to B, and 
a slot in which a node is receiving from mode Bb, 


respectively. <A pair of slots such as X-B and R-B forms a 


Virtua er eeuak.. 
The proposed algorithm can be described as follows: 


1. When auser at node A intends to converse with 
another user at node C, he activates a button with 
node C's address on the packet radio. The packet 
radio receives this signal and recognizes a 
requirement for a virtual circuit. It automatically 


checks its path assignment table and prepares for 
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Mieure 3.2 Time Slot Assignments for Node A and Node B 


handshaking. If its best path neighbor for traffic 
destined for node C is node B at this moment, it 
sends RFS (request for service) with a message 


number and the destination address to node B in the 
earliest available slot. An available slot for node 
A to transmit to node B means an empty slot at node 
A in which node Bis not transmitting. If this 
local call is placed and processed in slot 3, then 
slot 5 will be the available slot. 


2. If the called node (node B) receives the RFS from 
node A successfully, it responds immediately with a 
RTR (response to request) with the same message 
number in an earliest available slot. In this 
example, slot 7 will be the choice. Note that node B 
fails to receive the RFS if the total number of 
received signals in slot 5 has reached the specified 
slot depth. 


ea! 


Once the calling node (node A) receives the RTR from 
node B, it knows it has made a circuit with node B 
(i.e. slot™5 andes Joe or It then sends’ an OK 
message to node B in slot 5 and waits for an OK 


message from node C through node B in slot /7. 


Immediately after receiving the OK message from node 
C through mode B, node A begins to converse with 
mode C. We say that a virtual circuit has been 


established between node A and node C. 


If node A does not receive a RTR from node B after 
one frame time (time-out), it will send the RFS 
again in whatever available slot closest to slot 5. 
Node A will make a specified number of such attempts 


before sending a busy tone to the user. 


Node B begins to handshake with node C after 
receiving the OK message from node A. If node B 
fails to establish a circuit with node C, lt sends 
BD (breakdown) message via slot 7 to node A. The 
system in this case will immediately send a_ busy 


tone to the user at node A. 
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IV. TRAFFIC ANALYSIS AND NETWORK CONTROL 
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A. CONCEPTS OF TRAFFIC 


The reliability of a packet radio network depends upon 
its ability to cope with changes in network topology and 
traffic. In other words, the packet network must have the 
ability to react quickly to local disturbances due _ to 
statistical peaking of traffic at certain critical nodes in 
order to provide smooth operation for the whole network. 
The instantaneous traffic and flow problems can be handled 
appropriately by certain traffic control techniques, which 


we discuss below. 


Mrattic eoutrol in telephone networks has been 
intensively studied, analyzed and used for a long time. 
Various service disciplines and analytical formulae such as 
Poisson, Erlang B, Erlang C and others has been developed 
and are well known in traffic analysis of telephony. The 
mathematics associated with traffic behavior can be applied 
equally well to study the characteristics of voice traffic 
in packet radio networks. To properly apply the result from 
telephony, it is mecessary to understand what is meant by 


traffic intensities in the proposed packet radio network. 


The amount of voice traffic offered to any node ina 
network is a function of two parameters, the average rate of 
arrival of new call attempts ( A calls/sec ) and the average 
call duration (l/zsecs). The product of these two parameters 


is a measure of traffic intensity ( ps A/u ) and is usually 


expressed in Erlangs in telephony [Ref. 12]. In the packet 
radio network, we use traffic intensity to indicate the 
average number of virtual circuits needed (i.e. pairs of 
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time slots for voice sessions) for each link tow serveme 


given amount of offered traffic (i.e. given A andeE). 


We are now ready to consider the following analysis. We 
assume each link can carry at most a total of K virtual 
circuits ( or K servers) and that any further new  eagee 
attempt will be rejected by the network. In all cases, new 
call attempts will continue to be generated according to a 
Poisson process. The corresponding state-transition-rate 


diagram is shown in Figure 4.1 [Ref. 13] 





Figure 4.1 State Transition Rate Diagram for K Servers 


The coefficients for ith state is given as 


Aj; = { x ele 
0 >. era 
Hj = teu i=l, oa ie ile wine 
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If P;, denotes the _ probability that the link has 
established i circuits at some arbitrary time, it can be 


shown that 


> = ¢ Bpl=>)) (2a) Wie ees. 
a at 
0 ; ie eek 
or 
pi 
Pi = ¢ Po (---) : O<cis<s<kK 
te 
@) ; otherwise 


= 


where the traffic intensity P= ,A/P 


Using the conservation relation 


K 
> a)» A as 
in 7 
we have 
K pl 
Po = A = L 


xp! 
oe a 


Px can then be determined by 


p 
fee Ki 


Px gives the fraction of time that K circuits are used 
mem the link. This expression was first derived by Erlang 
in 1917 and is usually refered to as the Erlang's B formula. 
Note that Px may also be interpreted as the fraction of lost 


ealis. . 


3), 


We can compute the average number of calls (N) existing 


in.the network as follows. 


—_— K 
Noirs’ Ses 
oO 
ee oe 
° 
=P = ae 
Thus far, we have only considered Poisson traffic. 


Traffic distributions in real situations often deviatewuaee 


Poisson. A parameter describing different trafifae 
distributions is. the variance-to-mean ratio a. e usually 
varies from 0.5 to 2.0, and Poisson has avunatyece Exact 


analysis of traffic for non-unity @¢ is relatively difficult. 
In the literature, various approximation techniques are 
developed and are available. For simplicity, we shall only 
use the Poisson distribution in our analysis and simulation 


WOLK. 


From a traffic standpoint, the major difference between 
telephone networks and packet radio networks concerns the 
availabilty of time slots over each frame. The telephone 
network has full frame available for voice traffic, whereas 
the packet radio network can hardly allow each link to 
fully utilize all the available time slots ina frame. When 
a node has more than one neighbor, coordination "fon 
communications 1S not a easy task in a radio network 
environment. This 1S simply because a packet radio can not 
receive and transmit simultaneously, whereas wire line do. 
Consequently, it is generally impossible for each node to 
allocate all its time slots with its neighbors, thereby 
maximizing the number of circuits that each frame Can 


provide. 
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If we use 12 slots per frame and assume a slot depth of 
2 for the radio network, the maximum number of circuits that 
each link can possibly establish is 8. The average number of 
circuits we can actually establish for this network would be 
less than 8, and has been verified experimentally to be 
about 6. We will discuss this interesting result in a later 


chapter. 


B. NETWORK ROUTING 


With a given traffic intensity, the radio network can 
perform to a expected grade of service (i.e. a specified 
percentage of lost call) only if routing of the traffic is 
done ina stable, correct and optimal manner. Routing is 
Hertined as a process to find "best paths" for traffic flow 
in the network. Various criterion functions are possible for 
"best paths" [Ref. 14]. The criterion for asSigning best 
paths in the packet radio network is to effect maximum 
traffic throughput (or minimum lost call) in ae global 
manner. This suggests a study of how the entering traffic 
can be distributed optimally among individual nodes in the 


network. 


Due to the inherently random character of user demands, 
frequent changes of best paths may be necessary to reflect 
the new tread £1 status. The best path Of a 
Source-destination node pair is found by computing’ the 
shortest distance (or the least cost) over a number of links 
between them. The distance (or cost) of a link, also refered 
to as link weight, is just a positive number’ assigned to 


each link by the network controller. 


Link weight is usually a function of three parameters, 
the signal to noise characteristic or the attenuation, the 


processing delay, and the unused transmission capacity of 
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the link. The relative emphasis on these parameters depends 
on individual network and user requirements. For example, a 
network use a fixed weight for all links due to equal 
transmission capacity of each link, the shortest paths 
assignment becomes a least hop routing scheme. A_ hop is 
defined as a trip over a link. A large variety of other 
routing schemes concerning the performance of network with 
these parameters, such as minimum packet delay, least-energy 
routing and maximum traffic throughput, has been developed 
in the literature [Refs. 15,16,17]. These routing schemes 
can be roughly classified as static routing, dynamic routing 
and hybrid routing. A brief characteristic of each kind of 


routing method will be presented here. 


Static routing, also refered to as non-adaptive routing, 
makes various assumptions about the node locations and the 
capacities of the links, and then computes fixed routing 
tables with these link weights. The path for any node pair 
is determined prior to the network operation and is 
independent of normal traffic variations. Although it does 
not adapt to changes in network traffic, it does provide 


Satisfactory performance on the average over a range of 


trative imkensi these Least hop routing : scheme is a good 
example. in shert, static routing is very useful (fon 
networks having constant average traffic statistics. The 


main advantage of static routing is obviously its simplicity 
of implementation. The disavantage is that it is not good 


enough for time-varying traffic situations. 


Dynamic routing, also termed adaptive routing, measures 
and estimates the instantaneous’ states of the link, and 
makes routing of messages with these link weights. This 
scheme ideally routes traffic in the perfect and optimal 
manner. In practice, it is difficult to measure Gracie. 


Status instantaneously and accurately. Another practical 


38 


constraint is that dynamic routing introduces considerable 
amounts of overhead traffic for carrying routing updates. 
Nevertheless, dynamic routing can provide adequate services 
to the networks having time-varying traffic. A variety of 
dynamic routing schemes, such as centralized routing and 
distributed routing, has been implemented in the existing 
networks. We will briefly describe these two dynamic routing 


schemes here. 


For centralized routing, a central node in the network 
collects traffic status from all other nodes, processes it 
and then produces a new set of best paths. One node does 


all the routing work. All other nodes are not required to 
perform any routing processing and computation. This scheme 
thus saves considerably on the amount of hardware needed for 
the network. However, this scheme is not robust, Since a 
failure of the central node would cause the whole network to 
become inoperative. Another problem is that routing traffic 
is concentrated near the central node, and thus affects the 
throughput efficiency of the network. We can find a number 
of centralized routing algorithms that were developed from 
the graph theory in the literature. An algorithm proposed 
by Dijkstra is [Ref. 18] contained in Apendix A. Because of 
its simplicity and its computational efficiency, it was used 


in a distributed manner in our initial Simulation work. 


For distributed routing, each node constructs its own 
routing table using periodic updating information from 
neighboring nodes. No global knowledge of the topology is 
needed. Each node knows only its neighbors and chooses a 
prefered neighbor for each destination node. To implement 
the Dijkstra algorithm in a distributed manner, a flooding 
technique could be used for each node to inform all other 
nodes about its current traffic status (or new link weight). 


After receiving the traffic update information, each node 
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can then proceed with its own routing computation uSing the 


Dijkstra algorithm. 


Hybrid routing is considered to be the most attractive 
scheme for packet radio networks. It uses a_ link weight 
function which can produce approximately constant weight 
when deterministic network conditions dominate and highly 
varying weights when dynamic network conditions dominate. A 
proposed link weight function, which can allow the routing 
to behave in the above mentioned manner, will be presented 
and discussed in the next Section. A routing algorithm 
proposed by Yen [Ref. 19] which operates in ae truly 
decentralized network, was chosen for investigating the 
performance and characteristics of this proposed link weight 


function in the radio network by computer simulation. 


Logan in 1983 [Ref. 20] conducted an intensive study on 
the Yen shortest path algorithm. In his thesis, he mentioned 
that the Yen algorithm is Superior in terms of computational 
efficiency to many other distributed routing algorithms. It 
is worth noting that the Yen routing algorithm provides 
slighty better computational efficiency than the modified 
Dijkstra algorithm. The attractiveness of the Yen algorithm 
is that it requires no knowledge of the complete network 
topology and little information is exchanged between network 
nodes. The description of the Yen shortest path algorithm 


1S contained in Appendix B. 


C. CONGESTION CONTROL 


In general, flow control in a communication network 
serves to optimally allocate resources to satisfy user 
demands as long as there are resources and to settle 
contention when the network runs out of resources [Ref. 21]. 


In the packet radio network, the way to settle the 
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contention is simple and straight forward. An entering voice 
call is rejected and lost from the system when the network 
uses up all its available channels (i.e. traffic limit) and 


no longer able to accomodate the traffic. 


In addition, traffic may - get lost due to a local 
congestion problem because of a poor routing algorithm or 
inappropriate link weight function. Assuming the Yen 
distributed routing is perfect in the sense that it can 
direct and steer traffic correctly according to a given link 
weight function, a proper distance function must be devised 
to evaluate current traffic status accurately for each link 
in the network We believe that an appropriate routing can 
enhance the network throughput at various tra irae 
intensities before reaching the traffic limit. That is, the 
routing with a deSirable distance function can maintain 
maximum throughput, retard congestion, and if congestion has 


mo occur, it occurs at maximum throughput. 


Based on these requirements, we propose a distance 
function below considering path attenuation, link congestion 


level (or transmission capacity) and packet processing time. 


DISTANCE(B,A) = ATTENUATION(B,A) + P.DELAY(B,A) 
+ C.LEVEL(B,A) 


DISTANCE(B,A) computes link distance (or link weight) 
from node A to node B. ATTENUATION(B,A) signifies the signal 
to noise characteristic of the link connecting node A to 
node B. P.DELAY(B,A) includes processing delays both at node 
A and node B. C.LEVEL(B,A) indicates indirectly the 
available number of channels that node A can transmit to 
node B. The detailed description and analysis of the C.LEVEL 


1s contained in Appendix C. 
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The distance function will attempt to interrelate all 
these parameters and produce desired distances. A proper 
assignment of each of these parameter is crucial to the 
routing strategy and affects the network throughput. When 
deterministic network conditions prevail, we want the 
distance function to produce weights for least-energy 
routing [Ref. 22]. In the case of equal attenuation for 
each link, least-energy routing becomes least-hop routing. 
Least-energy is the path over a link or a series of links 
with the least attenuation. This routing strategy may pose a 
serious problem that a relatively small number of critical 
links will pass the majority “or tratiae. [Ref. 23] When 
dynamic network conditions dominate, the distance function 
Should produce highly varying weights which allow the 
routing to avoid local congestion. Both can be achieved by 
assigning varying weights for C.LEVEL and unvarying weights 
for ATTENUATION and P.DELAY. 


The C.LEVEL should be inversely proportional to the 
available number of channels that a link currently has. This 
inverse function is effective in the sense that when a link 
1s congested, a very high weight will be assigned on that 
link, and the routing will try to avoid passing traffic 
through the link. C.LEVEL should therefore be assigned a 
Wider range of possible weights relative to ATTENUATION and 
Pe DEA. 


Simulation results, presented in a later chapter, 
Support to a certain) extent the correctness and the 
effectiveness of the proposed distance function. Note that 
if minimun packet delay is our main concern, then the 
P.DELAY will be assigned a higher weight than the other two 


parameters. 
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V. SIMULATION 


We conduct simulation when a system cannot be studied 
directly because it does not yet exist, or is not available, 
mieit is too costly to work directly with it. Simulation is 
also conducted when there are many detailed questions that 


are very hard to answer through analysis alone. 


In general, a simulation study is a way of trying out 
designs and plans before their actual operations or 
productions, and also a way of acquiring new knowledge and 


providing useful insights about a system or an object. 


Simulations have a wide range of applications such as 


aircraft evaluation in wind tunnel, war games, flight and 
space simulation, queuing systems and others. [Ref. 24] 
Since the advent of digital computers, Simulation has 


become a practical technique and has made significant 
contributions to both theory and practice which ranges from 
the validation of analytical models to the creation of new 
systems. This is especially true in the fields of control 
systems, computer systems and communications’ networks. 
Complex interactions among interdependent system or units, 
which are impossible or extremely difficult to study by 
conventional analytical methods, can be investigated and 
examined when computers execute simulation programs. The 
great strength of simulation is that it allows a model of a 
system or a problem to be developed, tested and analyzed 


Step by step. 


It 1s worth mentioning that simulations require large 
amounts of detailed knowledge about the structure of the 


system and about patterns of usage. Simulation is therefore 
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either limited by its simplifying assumptions, or else be of 
the same order of complexity as the real system. ia 
addition, it 1s also important that the simulations be 


accompanied by analysis that can give order-of-magnitude 


estimates to ensure that the simulation results are 
reasonable. 

In this thesis, the representation of the system , the 
rules and relationships that describe it, is defined as the 
model. The use of the model under specific conditions is 
defined as simulation. The running of the model _ on the 


digital computer is the computer simulation of the system. 
Our purpose of simulation is to investigate the system 
behavior and performance. Our approach of simulation is to 
develop a model and verify that it is a valid one; then a 
series of parametric simulations can be run to gain 
understanding of system behavior and performance. To this 
end, we have used and describe next two networks, one 


Simplified and the other richly connected. 


A. A SIMPLIFIED NETWORK 


I. Goals of Simutaeroen 





A simple model will be used to evaluate the 
performance of the TDMA/CDMA time slot assignment algorithm 
we have developed in a previous chapter for a military 
packet radio network. This model is tested on an IBM 3033 
System digital computer under various traffic intensities 
and slot-depth assignments. Performance comparisons are 
made between the Tritchler algorithm and the proposed 
algorithm. An optimum slot depth will be determined from the 
Simulation results. In addition, we employ Erlang's B 
results (by considering K circuits to be 6) to verify that 


the model and simulation results are reasonable. This allows 
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us to proceed with a more sophisticated model later. 
Another objective of this simulation is to observe and 


confirm the difference between wire lines and radio links. 
Pew Descimptirom ot Model 


Small networks (as parts of large networks) of four 
to eight nodes are connected in the topology as_ shown in 
Figure 5.1 Network symmetry is observed such that the 
numbers of neighbors of node A is equal to that of node B. 
We use this model to scrutinize the two time slot schemes 


without involving any routing algorithm. 


Al Bl 
= 
SN 
= = B 
ZF 
Za Ns 
Ae B2 
Rreure: 1 A Simplified Network 
iiecntsmemodel., a virtual cireult could be a path 
constructed from node A to node B, or node A via node B to 
node Bl or node B2, or node B to node A, or node B via node 
A to node Al or node A2. That is, only node A and node B 
are source nodes and the remaining nodes are treated as 
destination nodes. The following parameters are used in the 
Simulations: 
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1. Node Al and node A2 represent an aggregate of 
nodes connected to node A. The number of these 
nodes is an input parameter to a Simulation run. 
It is assigned a value from l1to 3. The 
variation of this parameter is to test the 
robustness and stability of the system under 


different network topologies. 


2. A typical call distribution as a functions 


time in the modeled network is shown in Figure 


Dae 


From A From B 
to 8B to A 





Figure 5.2 A Typical Call Distributron 


New calls are generated according to an 
exponential distribution with a mean value 
ranging from 0.05 secs to 0.35 secs. Calls 


created from node A and node B are equally 
probable. Each node has equal chance to be a 


destination node. 


3. The holding time of virtual circuit obeys an 
exponential distribution function with a mean 


value of 20 secs. 


4. Since human voice has a 4 KHz bandwidth, we can 
sample at 8 KHz (Nyquist rate). The repetition 


period of each frame is therefore 1/8000 secs. 
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Each frame consists of 12 time slots and hence 


all time slots are 10.417 micro-secs long. 


5. The slot-depth is assigned a value from 1 to 4 


for each simulation run. 
6. Each simulation run is 400 secs long. 


We will briefly describe the Tritchler [Ref. 22] 
time slot algorithm here. His algorithm requires neighbors 
to exchange coordination messages so as to arrange a pair of 
time slots for a circuit. Three coordination messages are 


used. They are 


1. auinitial request for service from the calling 
node to the called node 


2. response request for service from the called 


node back to the calling node 


3. final assignment notice from the calling node to 
the called node 


ii) adaltion, if the called node is not’ the 
destination node, a "OK" message or a "BD" message as 
discussed previously in our proposed algorithm will also be 
needed for the source node to arrange a virtual circuit via 
the intermediate nodes to the destination node. During the 
assignment, each node seeks to conserve its unassigned slots 
by stacking the received signals whenever possible to a 
specified slot-depth in a minumum number of slots. A node 
can receive a coordination message from a neighbor in any 
Mote in which it is not transmitting. Note that his 
algorithm has assumed that the called node can always 
receive a coordination message from its calling node as long 
as the called node is not transmitting. This implies that a 
slot may have to receive one signal more than its 
Slot-depth. 
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B. A RICHLY CONNECTED NETWORK 
I. Goals of Simm@iaeilon 


A more complete and realistic model is developed to 
study the real-time operations of the packet radio networks 
emp loying the proposed communications and contrel 
techniques. Proper operation of the routing and congestion 


control will be examined in detail. 


For simplicity, we will first use the Dijkstra 
routing algorithm in a distributed manner with the 
assumption that routing updates are received correctly by 
all nodes in the network without actually allocating time 
slots to carry the updating traffic. This model, thowee 
relatively simple, is able to measure the performance of the 


proposed dynamic control technique with different traffic 


intensities. 
However, in order to make the model resemble the 
object system as closely as possible, we will allocate time 


slots for carrying routing updates and implement the Yen 
routing algorithm in the network after gaining enough 
experience from the previous simulation work. Note that the 
Yen routing algorithm is believed to be efficient and 
Suitable for decentralized networks in the real world, but 


it is difficult to be implemented in the simulation model. 


2. Description of Model 





Figure 5.3 illustrates the network to be used for 
Simulation. It is composed of eleven nodes and twenty-two 
links: This test metwork is richly connected and fully 
decentralized so that we can generate the necessary dynamic 
network conditions for testing the proposed congestion 


control mechanism. 
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Figure 5.3 A Richly Connected Test Network 


To keep the simulation focussed on its goals, we 
first construct a relatively simple model by employing the 
Dijkstra routing algorithm and assuming each node in the 
network has knowledge of all link weights without actually 
passing the updating information by any time slot. After we 
program it, run it and draw conclusions, we will proceed to 
a finer model in which updating traffic is competing with 
Mowec traffic for time slot allocation. Instead of the 


Dijkstra algorithm, we will use the Yen routing algorithm to 
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reduce the considerable amount of overhead traffic caused by 
using time slots for routing updates. The parameters used 


in the simulations are given below. 


1. Each link will be assigned a unique ATTENUATION 
value and a constant P.DELAY value which are the 


Same in either direction for a pair of nodes. 


2. A C.LEVEL value will be assigned on each link 
according tO. tran tarc intensities at thas 


particular link at the time of updating. 


3. Update periods vary from 2 secs to 15 secs. An 
updating period will be used for each simulation 


run. 


4. Entering traffic has the Same probability 


distributions and assignments as before. 


5. Time frames and slots have the same durations as 
before. 
6. Each simulation rin is S00"secs tones 


C. SIMULATION LANGUAGE 


There are quite a number of high level programming 
languages available today. Some programming languages are 
specifically developed for the solution of equations, some 
are written for simulations of complex organizations and 
systems, and others are designed for computer assisted 


IinS trict mon. 


FORTRAN is one of the most widely used languages for 
expressing mathematical relationships [Ref. 25]. It hae 
excellent mathematical capability and is therefore fully 
equippped and supported by our computer center. However, 


FORTRAN is weak in list processing and logic models. In 
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particular, it is not a language for simultaneous events or 


discrete- event simulation. 


Due to the discrete nature of packet radio networks, we 
will use a discrete-event programming language, that 1s 
SIMSCRIPT II.5, for our simulation work. SIMSCRIPT is the 
most widely used simulation language next to GPSS (General 
Purpose Simulation System). It was developed by RAND 


Corporation and has been in use Since 1962. 


SIMSCRIPT is an English-like and free-form simulation 
language. The statements are understandable directly by 
Someone with a minumum exposure to the language. List 
processing capabilities are strong. FIFO and LIFO and 
ordered data structures are easily established. In addition, 


complex situations can be well structured. 


ia a SIMSCRIPT simulation, an object system is 
represented as sets of temporary or permanent entities, each 
with attributes that have individual values. The basic unit 
of action for carrying out the simulation is’) an activity. 
The object system is modeled and characterized by a number 
of activites. When operating, these activities reproduce the 
time-dependent behavior of the system being simulated. When 
each activity occurs, the system state changes accordingly. 
The state of the system is changed by either creating or 


destroying entities, or by changing the attribute values. 


In order to simulate the object system accurately, we 
must therefore model correctly the things that activities do 
and arrange the execution of subprograms in a proper 
sequence that represent activities. The order of performing 
activites within the model corresponds to the order in which 
the same activites occur in the object system. An instant in 
time at which an activity starts oor stops is called an 


event. SIMSCRIPT contains a built-in next event timing 
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routine. This timing routine is the master controller Gig 
Simulation run. Simulation terminates when no _ further 
events are scheduled [Ref. 26]. 


D. SIMULATION PROGRAMS 


Appendix D contains the simulation program focussing 
investigation on the proposed time slot assignment 
algorithm. Appendix E contains the simulation program for 
the model using the Dijkstra routing algorithm. Finally, 
Appendix F gives the simulation program for the most 
complete representation of the proposed packet radio 


network, using the Yen routing algorithm. 


All the simulaion programs are modularly structured. 


Each simulation program 1S composed of a preamble, main 
routine, initialization,events and routines of the 
Simulation model. The preamble has temporary entities, 
event notices, and miscellaneous declarations. The main 


routine initializes the model for each new simulaion run and 
transfers control to the timing routine when initialization 
is complete. The routine FRESH INPUT (initialization) reads 


in all the data needed for the simulation and resets all 


counters. Six events are constructed for handshaking (i.e. 
time slots assignment), virtual circuit establishment and 
virtual circuit disestablishment. The event TERMINATION 


terminates a simulation run. There are also routines for the 
routing algorithm to perform desired path assignments, 


distance computation and the collection of statistics. 


Statistical phenomena about the operation of a model is 


controlled by pseudorandom number generators. SIMSCRIPT II 


provides eleven statistical functionss sfeq generating 
indepedent pseudorandom numbers. Three commonly encountered 
functions are used in our simulation : Exponential .F, 


a 


Randiah and Uniform.F. Exponential.F is used to generate 
activities times. Randi.F is used for time slots allocation 
and Uniform.F is used for generating various link 
ATTENUATION 's. 
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VI. RESULTS AND DISCUSSIONS 


We tackled the analysis of the proposed packet radio 
networks in a number of stages as described in the previous 
chapter. We will present the corresponding simulation 
results in a proper sequence and discuss them accordingly in 


this chapter. 


Performance of the simulation models were measured by 
two parameters: the average call setup time and the grade 
of service. Call setup time is defined as the connection 


time between the moment the last digit is keyed and the 


moment the virtual circuit between the source and 
destination nodes is made. Since the simulation process is 
somewhat random, a practical way to specify this parameter 


is to define the mean value for the connection times. A lost 
call is caused by the unavailability of any link connecting 
the source and destination nodes. We define the grade of 
Service to be the number of successful calls over the total 


number of calls entering the network. 


We also use Erlang's result with appropriate traffic 
intensities and number of servers to provide a_ reliable 
performance evaluation of the simulation model and to 
provide more insight into the channel characteristic of the 


packet radio network. 


A. RESULTS FOR TIME SLOT ASSIGNMENT SCHEMES 


An analysis of the proposed time slot assignment scheme 
for various possible values of N and X between two nodes 
is included as Appendix C. Table I contains the analytical 


result for the probability that the first RFS message 
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(request for service) fails to travel from a calling node to 
a called node. The table shows, as expected, that a higher 
number of calls that can be established as we increase the 
allowable slot depth. Increasing the slot depth from 1 to 2 
generally results in about 5 to 10 percent improvement. 
There is less improvement by increasing the slot depth from 
2 to 3. This fact is further supported’ by the simulation 
results shown in Figure 6.1 . It can be seen from this 
@eaph that slot depth of 4 only performs slighty better than 
slot depth of 2. We therefore conclude that slot depth of 2 


is sufficient for the proposed packet radio. 


The performance of the proposed time slot assignment 
algorithm was then evaluated for different network 
topologies varying from 4 nodes’ to 8 nodes. The 
corresponding simulation results are given in Figure 6.2, 
6.3 and 6.4 . The detailed simulation results are contained 
in Table II . Both the Tritchler and the proposed algorithm 
are plotted on the same graphs for easy reference and 
comparison. Erlang's B results with 6 servers are also shown 


on all the graphs. 


For 4 nodes network, it appears that the network closely 
resembles a line network having 6 dedicated lines. The 
Erlang's B results fit quite well to the simulation result 
of 4 nodes network and therefore validates the simulation 
model used. We note that each node in the packet radio 
network has 8 possible channels but can only provide service 
for 6 channels. This is to be expected since slot matching 
is amajor problem when a node is having more than one 
neighbor in the packet radio network. Radio network thus 
performs somewhat worse than wire line network based on same 


amount of channels under Same traffic loads. 
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The performance results for 6 nodes and 8 nodes networks 
are very close to each other. This indicates that the 
proposed time slot algorithm is robust and stable with 


respect to the changes in network topology. 


In most cases, the proposed time slot algorithm performs 
better than the Tritchler algorithm. This may be due tome. 
Simple time-out procedure that the proposed time slot 
algorithm adopts. Moreover, the proposed time slot scheme 
may give more uniform usage of time slots in each time 
frame. In addition, it requires less mean call setup time 
than the Tritchler algorithm. 


TABLE I 
A RFS Message from a Calling Node to a Called Node 
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Probability of failure 
of first attempt 


N X 
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4 2 0.200 0.150 OreS0 
4 5 O2333 0.276 O..222 
4 4 0.500 0.375 O.375 
4 5 O76 72 0.562 0.493 
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Table I 
A RFS Message from a Calling Node to a Called Node (Cont'd. ) 


be 1 O2090 0.090 07070 
5 a OFZ 00 O15 1Sxe, O50 
5 3 0.2333 0.278 ON v2 
3 4 0.498 0.374 0.374 
5 5 0.662 0.547 0.482 
5 6 0.742 0.616 O96 
6 1 0.090 0.090 0.090 
6 2 0.200 0.150 0.150 
6 3 ORS eis: O27 3 Oa 2c 
6 4 0.490 0.371 0.370 
6 5 0.618 OD: LD 0.456 
6 6 O7696 0.560 0.546 
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7 2 0.200 OF 150 0.150 
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Note : § = slot depth 

= number of empty slots at node A in 

A which node B 1s not transmitting 

XK = number of slots in which node B is 

B transmitting 


Prob. of failure = Y / aa 
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Figure 6.1 Results for Slot Depth Comparison 
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TABLE II 
Results for the Simplified Network 
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Figure 6.2 Results for 4 Nodes Network 
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Figure 6.3 Results for 6 Nodes Network 


61 


TIME SLOT ASSIGNMENT EVALUATION 
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Figure 6.4 Results for 8 Nodes Network 
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B. RESULTS FOR STATIC AND DYNAMIC CONTROL 


One of the major functions asSigned to the routing 
function is to route traffic around congested links. For 
appropriate updating periods, this will prevent the 
congestion from becoming worse and maintain high network 
throughput. However, Since the alternate path is longer than 
the static least hop path, packets will consume more link 


capacity. In some conditions, especially when routing is not 


updated frequently enough, this may cause the congestion to 
increase and spread. This phenomena can be observed from 
Figure 6.5. The corresponding results are contained in 
Table III 


When the updating period is 15 secs, the network always 
performs worse than static least hop scheme does. When the 
updating period is 5 secs, the network at lower traffic 
intensities always performs better than the static least hop 
scheme. This is especially true for the 2 secs updating 
period. This shows that the proposed distance function is 
able to produce desirable path assignments for achieving 


high network throughput by using appropriate updating 


periods, so long as the network is not too close _ to 
Saturation. 
This simulation as a whole has demonstrated the 


effectiveness of the proposed link weight function in 
handling both the dynamic network conditions and the static 


network conditions. 


63 


TABLES viet 


Results? for Statwve ana puget Network Control using the 
Dijkstra Algorithm 
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Figure 6.5 Results for Static and Dynamic Network Control 
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C. RESULTS FOR YEN ROUTING CONDITIONS 


The Yen routing algorithm is employed with the proposed 
distance @ iunction to select paths that have minimum 
resistance to additional flows and achieve maximum network 
throughput. In the Yen algorithm, a node will receive 
routing information from all nodes in the network via its 
neighbors and immediately update its own routing table with 
the new information. In this manner, the routing table will 
contain the identity of the neighbor on the shortest path to 
any other nodes in the network. We note that the Yen routing 
algorithm is loop free. If the routing is not loop free, the 
network can become totally congested even when the entering 


traffic is not heavy. 


It is worth noting that top priority for slot allocates 
1S given to routing updates so that these messages will not 
get caught in network congestion and seriously affect 


network performance. 


Simulation results given in Figure 6.6 and Table IV 
Shows the network performance as functions of traffic 
intensity and update period. With an appropriate updating 
period, say 5 secs, the dynamic network control can balance 
the loading to prevent clustering of traffic. In this case, 
it shows a better performance than the static least-hop 


scheme for traffic intensities lessethoaneo 


We observe that the system acts like a least-hop scheme 
when the network is moderately loaded. For twtat tae 
intensities greater than 4.3, the static least-hop scheme 
performs better than the dynamic scheme. This indicates that 
routing mesSages under heavy traffic have great impact on 


the network performance. 
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TAREE hy 
Results for Network Control uSing the Yen Routing 
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Figure 6.6 Results for Network Control using Yen Routing 
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VII. CONCLUSIONS 


We have presented in this thesis an efficient and 
reliable packet radio network for military voice 
communications. A variety of network topologies for military 
applications was given. We noted that decentralized networks 
are commonly used in larger military radio networks. We also 
looked in detail at the network modeling and assumed that 


all the nodes are equally capable so that the packet radios 


are Standardized and interoperable. This provides system 
miltexability , which is very important Lor military 
operations. 


We have examined a packet virtual circuit technique for 
establishing voice sessions between source nodes and 
destination nodes. The key characteristics of this switched 
connection is that it allows voice packets to follow a fixed 
path with constant end-to-end delay through the network. It 
is worth mentioning that with voice packets we do not 
require retransmission of packets with errors; there will 
usually be less effect on voice intelligibility due to 
dropping bad packets, rather than incurring delay by 


retransmitting them. 


To provide high channel quality and to satisfy traffic 
needs, a TDMA/CDMA hybrid scheme was proposed and evaluated. 
The unique features of this scheme are better utilization of 
channel, selective addressing capability for multiple users, 
Simple processing in relaying messages, low probability of 


interception, anti-interference and antijam. 
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A simple time slot assignment algorithm which permits 
expeditious and efficient handling of call connections was 


proposed. We have demonstrated its performance by computer 


Simulation. The results show that it is robust and stable 
with respect to the changes in network topology. A 
desirable slot depth (weighting complexity versus 


performance) was shown to be two. 


We used Erlang's results to verify the simulation 
results and observed the major difference between wire line 
network and packet radio network. The results show that 
each node having eight possible channels could on the 
average provide service for six channels. This indieates 
that packet radio network performs somewhat worse than wire 
line network given same amount of channels under same 
traffic loads. One should realize at this point that a 
packet radio cannot receive and transmit at the same time 


but wire lines do. 


Since the user demands are random in nature, a method 
for measuring the current state of the channel at each node 
1S necessary. We found a method to estimate the unused 
transmission capacity of the inter-node links. An 
appropriate link weight function associated with this 
estimation was proposed. We conducted a series of simulation 
runs to investigate the behavior and performance of this 
function. The simulation results show that when a proper 
updating period is employed, the proposed function allows 
dynamic routing to produce desired path assignments’ for 
achieveing maximum network throughput. The results also 
show that when routing is not performed frequently enough, 
the network becomes unnecessary congested and affects 
traffic throughput because the old routing is uSed. This is 
especially true in the cases of heavy traffic when the 


traffic patterns change quickly. 
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We conclude that the proposed link weight function with 
an efficient dynamic routing algorithm using a proper 
updating period will maintain maximum network throughput at 


various traffic intensities before the network is heavily 


loaded. 
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APPENDIX A 
THE DIJKSTRA SHORTEST PATH ALGORITHM 


DIJKSTRA proposed a labeling algorithm tto find the 
shortest path between two specific nodes in a graph in 1959. 
His algorithm requires one to know the graph topology and 


all distances between each pair of nodes. 


Initially, no paths are known, all labels are tentative, 
so all nodes are labeled with infinity. As the algorithm 
proceeds, each node is labelled with its distance from the 
Source node along the shortest path. When it is discovered 


that a label represents the shortest possible path from the 


source to that node, it 1S made permanent. This iterates 
until. «alt of the mininum distance paths have been 
identified. 


In this thesis, the DIJKSTRA algorithm is implemented as 
the successive calculation of 


Digs =) Min (| Dai ao (Dik + Dkj)} 


for each pair of nodes in the network, where Dij represents 


the distance from node i to node j. 


ee 


APPENDIX B 
THE YEN SHORTEST PATH ALGORITHM 


YEN J.Y. proposed a decentralized alogorithm for finding 
the shortest paths in communications networks in 19/79. His 
algorithm requires little information exchanged between 
nodes and no global knowledge of the topology of the routes. 
The necessary assumptions for using the algorithm are as 
follows: 

1. Each node in the network has processing capability 
and a timing device called clock, and knows correct 
time. 

Each node sends its updated message independently. 


3. Transit delay is neglected. 


In an N-node directed network (see Figure B.1), we 
define (J,K) to be the link connecting node J to node K, 
YEN(J,K) to be the distance of the tentative shortest path 
from node J to node K, CLOCK(J,K) to be the time represents 
the corresponding value of YEN(J,K), and DISTANCE(J,I) to 


be the distance from node J to node I. 
The following steps briefly describe his algorithm: 


peepee: initially, all YEN(J,K)’s and CLOCK(J,K)‘s are 
set to a large positive number (say 999999). 


step 2 : At time 0, the destination node K sends each of 


its neighbor node a message "K". 


step 3 : On receiving "K" from node I, each node J will 
1. label the node (node I) that has just sent the 
message and delete it rom its update 


transmission list. 


7 





Figure B.l Yen Routing Paths 


2. update YEN(J,K) by 
YEN(J,K) = Min(YEN(I,K)+DISTANCE(J,1), YEN(J,K)) 
and set CLOCK(J,K) to the value of the updated 


YEN(J,K). 

3. At time CLOCK(J,K), node J sends the message 
"K" to neighbors on its update transmission 
lyst. 


step 4 : Repeat step 3 until message "K" has reached all the 
nodes in the network. This can be done by specifying a 


maximum possible time for message "K" to travel. 


At the conclusion of the algorithm, each node J has the 
identity of the next node (node I) on the shortest path from 
node J to node K with the optimal shortest distance 
YEN (3h 
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APPENDIX C 
ESTIMATION OF TRANSMISSION CAPACITY 


The objective of estimating the available number of 
channels between two nodes ina network is to allow’ the 
distributed routing algorithm to produce desirable path 
assignments and achieve high throughput efficiency. In other 
words, when the overall traffic is not heavy, the algorithm 
reduces unnecessary local congestion due to statistical 
peaking of traffic intensities at some nodes and not the 
others. When more traffic enters the network, the dynamic 
routing uses the estimation result to distribute traffic 
evenly to maintain high throughput in the network. When 
excesSive traffic enters the network, it spreads the 


congestion throughout the entire network. 


As discussed in the thesis, a TDMA/CDMA scheme is used 
for each node to share a common broadcast RF frequency in 
packet radio networks. A virtual circuit is established for 
each voice conversation. Each virtual circuit needs a pair 
of time slots on each link and requires one link or a Series 
of links from a calling node to a destination node. The 
slots associated with each virtual circuit will be reserved 


meee che duration of the conversation. 


Since every node is listening to its neighbors’ in any 
Slot in which it is not transmitting, anode can infer a 
great deal about its neighbor's transmit slot assignment. 


Sims is the crucial point in the following derivation. 


Consider a case where two received signals could be 
Stacked ina slot and consider the following analysis. 
First of all, we define three terms: Na,Xg and Rg. These 


quantities are measured at node A. 


JD 


Na = Number of empty slots at node A in which node B 


1s not transmitting 


2. Xg = Actual number of slots in which node B is 
transmitting 

3. Rg = Number of slots in which node B is receiving 

Without exchanging information with node B, node A does 


not know 


exactly about Rg value; it therefore estimates 


possible Rg values based on the Xg value. AsSuming 12 slots 


per frame and 2 received signals could be stacked in a slot, 


Een 
Le [| sk. +e} 2s Shee for Is Xe 
B B B | B 
2 
2. [| X& +1 | SS Resse for 6 < X < 8 
B B 
2 
[ J 3 Truncation to integer value 
An example is given in Figure C.1 to clarify "thee 


definitions. 


Have R@8 


slots uniformly distributed over Ng = (12 = Gage 


possible slots at node B, then 


N 
B 
1. there are w different patterns, 


Ze 


B 


a 


each pattern is equally likely. 
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Figure C.1 Slot Distributions of Node B and Node A 


Let Y be number of slots of set {Rg} which overlap slots in 
set {Na } ’ 


N N - N 
A B A 
1, there are ( )( patterns 


if Y = 
Ree OL 
B 
N N - N 
A B A 
if Y = 2, there are patterns 
Z Ree 


TT 


N N - N 
A B A 
In general, there exists patterns 
Y = Y 


The probability of Y slots in Ny (i.e. that Y receive (Sie 


at node B overlap the empty slots of node A) is hence given 


as 


Prob {Y / R , X ,WN } 2 ----r-r---ee 
B B A 


N 
- , OO SPY tsa and 
A 
R 
B N -(N - R Js Y Se 
A B B B 
0 , otherwise 
Since each pattern is equally probable, the average number 


of receive slots of node B which overlap slots at node A in 


the set { Na } 1S given as 


Eo {Y oReeee ae Ne = D2 Y Prob{Y/R.. x ne) 
B B A B B A 
all Y 


If we average also over Re(assuming each of its allowable 


values is equally likely), we have 
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Finally, the number of channels in which A can transmit to 


B, given Xg and Na, is given by 


does not imply that K circuits can be established. 


This can be best explained by example (Figure C.2) 





Pagure C.2Z Possible Arrangment for Circuits 


Given C = C = 3, only one circuit could be established. 
B/A A/B 


The link congestion level measured at node A from node A to 


node B can then be estimated by the following relationship 


Geb VvEn(B,A) = Const / C 
B/A 


Where Const is an arbitrary constant. 
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This inverse relationship has a highly varying 
characteristic. When it is incorporated in the link weight, 
it imposes a high penalty to the congested link so that new 
path would be routed to bypass the congested nodes. In this 
manner, one can hope to maximize the system throughput and 


provide the desired grade of service. 


C.LEVEL(B,A) indirectly measures the availablity or the 
transmission capacity of the link connecting node A to node 
By Given any slot depth, it is always possible to perform 
the similiar computation for the C.LEVEL between a pair of 


nodes with any i and a by applying the same procedure. 
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APPENDIX D 
SIMULATION PROGRAM FOR EVALUATING TIME SLOT ASSIGNMENT 


ALGORITHM 
J|SLOT JOB (3060,9203), 'SIMPLE' ,CLASS=C 

//*MAIN ORG=NPGVM1: 3060 . 
| EXEC SIMZ5CLG , REGION .GO=4096K , PARM.GO= 'MAP , SIZE=760K 
//SIM.SYSIN 


GENERATE LIST ROUTINES 
TEMPORARY ENTITIES....... 

EVERY MESSAGE HAS A CKT.NUMBER, A TYPE, AN ORIGINATOR, 

A DESTINATION FM.NODE 

A TO.NODE RNarker TIME, A SLOT.ARRIVAL, A SLOT.ASSIGN, 
A RECSLOT, i DIRECTION. >A REATTEMPT 


‘DEFINE START.TIME AS A REAL VARIABLE 


EVENT NOTICES INCLUDE REQUEST. FOR.SVC, 
RESPONSE . TO.REQUES 
UPSTREAM. BREAK. DOWN. NEW. CALL 
DOWNSTREAM. BREAK.DOWN AND HALT SIMULATION 


EVERY REQUEST.FOR.SVC HAS A MSGI 
EVERY RESPONSE.TO. Ae onie HAS AM 
EVERY UPSTREAM.BREAK.DOWN HAS A U. 
EVERY DOWNSTREAM.BREAK.DOWN HAS A 


tf 
ue 


PRIORITY ORDER IS UPSTREAM. BREAK. DOWN 
DOWNSTREAM. BREAK.DOWN,AND HALT.SIMULATION 


GY 
tot 


DEFINE INFO AS A 3-DIMENSIONAL INTEGER ARRAY 
DEFINE SPECINFO AS A 2- DIMENSIONAL INTEGER ARRAY 
DEFINE SLOTS.PER.FRAME AS A 1L-DIMENSIONAL INTEGER ARRAY 
DEFINE SLOT.DEPTH AND N AS INTEGER VARIABLES 
DEFINE CALLED.NODE AND CALLING.NODE AS INTEGER VARIABLES 
DEFINE PRNT.COUNTER AS AN INTEGER VARIABLE 
DEFINE CKT.GENERATED, CKT.ESTAB. CKT.FAILED, CKT.SUM 
AND CKT.DISESTAB AS INTEGER VARIABLES 
DEFINE UP.ROUTE AND DOWN.ROUTE AS INTEGER VARIABLES 
DEFINE PRNT AS AN INTEGER VARIABLE 
DEFINE TEST.DURATION, SLOT. DURATION, 
MEAN. SYS.CALL.ARRIV 
AND MEAN.CALL. DURATION AS REAL VARIABLES 
DEFINE NODAL.MEAN.CKT.ESTAB AS A REAL VARIABLE 
DEFINE FAIR.POINTER AS AN INTEGER VARTABLE 
DEFINE LONG.TIME.EST, AVG.P.BD, LONG.P.BD, AVG.C.BD, 
LONG.C.BD AND 
AVG.TIME.EST AS REAL VARIABLES 
DEFINE CKT.LONG.TIME.EST AS AN INTEGER VARIABLE 
DEFINE MAX.CKT AS AN INTEGER VARIABLE 
DEFINE SUM.BD.TIME, AVG.BD.TIME, TOT.P.BD AND TOT.C.BD 
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AS REAL VARIABLES 
DEFINE CKTS.BD AS AN INTEGER VARIABLE 
DEFINE FRACT.LOST.CALL AND FRACT. SUCCESSFUL. CALL 


E 

DEFINE C.BD.COUNTER AND P.BD.COUNTER 

AS INTEGER VARIABLES 
DEFINE SUM.DURATION AND CALL.DURATION AS REAL VARIABLES 
DEFINE DELAY.SUM AND AVG.DURATION AS REAL VARIABLES 
DEFINE PRNT.INTERVAL AS A REAL VARIABLE 
DEFINE OFFERED.TRAFFIC AS AN INTEGER VARIABLE 
DEFINE BREAKTIME AS A REAL VARIABLE 
DEFINE MAX.ATTEMPT AS AN INTEGER VARIABLE 
DEFINE PARTIAL.BREAKDOWN TO MEAN 3 
DEFINE FULL.BREAKDOWN TO MEAN 4 


END ''PREAMBLE 
SB BaE awa BEGGS GE GE v EE ESE Svs Gv GSES SS SSS SESE SSS KSEEEEESS 


LET LINE.V = 30 
START NEW PAGE 


BSS SSSSSSSSSSSSSSSSSS SSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


RESULTS OF SIMULATION 
PPS V PU SBR SSR OPER Se Ve yyy rye yey oe’ yy tance aie yh ate 


'' THE MAIN PROGRAM CALLS INPUT.DATA ROUTINE THAT SETS 
'' INPUT PARAMETERS AND INTIALIZATION VARIABLES 
'' FOR ALL RUNS OF SIMULATIONS. 


Tet 


LET PRNT.COUNTER 
LET FAIR.POINTER 


PERFORM FRESH. ae 


INFO (* 
RESERVE SPEC NEO: 
RELEASE SEED. Mis 


OQ 
1 


S (20 + N d BY 12 BY 4 
x5 AS (20 + N) BY 12 





RESERVE SEED.V(*) AS 10 

LET SEED, V(1) = 2inleaoeey 

LET SEED.V(2) = 683743814 

LET SEED.V(3) = _964393174 

LET SEED.V(4) = 1217426631 

LET SEED.V(5) = _618433579 

LET SEED.V({6) = 1157240309 

LET SEED-W( 79) =. @lioyeicops 

LET SEED.V(8) = __48108509 

LET SEED.V(9) = 1797920909 

LET SEED.V(10) = 477424540 

PRINT 2 LINES WITH ((No+ 7) 
D SLOT DEPTH AS. FOLLOWS 


AND_ SLOT. 
THE NUMBER OF NODES IN | _,HE SY STEM AR Eas 
H NOW IS 
SKIP 2 OUTPUT LINES 


* 


Se 


INFO(NODE,SLOT, INDEX) = INTEGER VALUE 


NODE DENOTES NODE NUMBER 
TRDERE EOF Le BME NUMBER 


D = 0 MPTY SLOT 
INDEX = 1 TRANSMIT’ S SLOT WITH CIRCUIT NUMBER 
INDEX = 2 RECEIVE Ss SLOT 
INDEX = 3 NODE NUMBER 
INDEX = 4 NUMBER OF RECEIVE SIGNALS 


HEDULE A HALT.SIMULATION AT TEST.DURATION 
START SIMULATION 


SKIP ZeOUTPUT LINES 
PRINT 1 LINE AS FOLLOWS 
THE PROGRAM HAS COME TO THE END OF THE SIMULATION 


aE A NEW.CALL NOW 


B&G G&G GEER RE w a GE GEE GE REE E aaa G SaaS GEER E EES EEE EERE EEaSS 
UTINE FOR FRESH. INPUT 


THIS ROUTINE SETS ALL INPUT VARIABLES IN ORDER TO 
BEGIN THE SIMULATION 


ae PRNT = 5 
PRNT HELPS IN DEBUGGING THE SOFTWARE AND PROGRAM LOGIC 


QO == PRINT EACH PROCESS 
1 == PRINT SLOT ASSIGNMENT AT EACH NODE 
2 == SELECTIVE PRINTING 


INPUT DATA 
LET Pee TRAPEIC = 6 
Bete sLOT.DEPTH = 2 

MAX. ATTEMPT 4 
mie TEST. DURATION= 400. 
LET SLOT.DURATION= 0.00 
LET MEAN.CALL. DURATION 


if 

00 
LET NODAL.MEAN.CKT.ESTA ¢ EAN.CALL.DURATION * 2.0) / 
EAL. F(OFFERED. TRAFFIC) 
LET MAX.CKT = 


300 
LET PRNT.INTERVAL = 30.00000 


1 | 


'' INITIALIZATION 

LET TIME.V = 0.000000000 

LET CKT.GENERATED = 0 
MEPeGKT.DISESTAB = 0 

LET CKT.SUM 

ie CKT ESTAB = 0 

LET MEAN.SYS.CALL.ARRIV_ = NODAL.MEAN.CKT.ESTAB / 2.0 
Mem FRACT.SUCCESSFUL.CALL = 0.0 
BemerRACT.LOST.CALL = 0.0 

LET UP.ROUTE = 0 

LET DOWN.ROUTE = O- | 

LET BREAKTIME = 13.0 * SLOT.DURATION 


OO 
oe 
> 


oo 


LET SUMPDURATTON. — 302 
LET AVG.DURATION = Q. 
0 


LET LONG. TIME, ES Tae 


0 
0 
ao, 
0 


LET P.BD.COUNTER 
LET C.BD.COUNTER 
LED tome 2 bb) ene. 
TOC. ow 0. 
LET CKT | FAILED = 
LET AVG.DURATION 
LEL DEBAY. SUlM=— 70.0 


PRINT 5 LINES WITH TEST.DURATION, SLOT.DURATION, 
NODAL .MEAN.CKT.ESTAB 
MEAN. CALL . .DURATION, AND PRNT. INTERVAL 


AS FOLLOWS oe 
THE SIMULATION WILL RUN FOR _***.** SECS. 
THE DURATION OF A TIME SLOT IS_*. *%%%%%% SECS 
THE MEAN GENERATION TIME OF A NEW CALL ***,** SECS 
THE MEAN DURATION TIME OF A CIRCUIT IS ****,** SECS 
THE PROGRAM WILL PRINT RESULTS EVERY ****,*%* SECS 
SKIP 2 OUTPUT LINES 


' 9 


RETURN 
END ‘'' FRESH. INPUT 


es 
ry 
i 000 meu 


THIS EVENT GENERATES CALL AND SENDS REQUEST FOR 
service FROM A CALLING NODE TO A CALLED NODE 


- - @ = «= fT] = = -© = © = ~ 


: 
VENT NEW.CALL SAVING THE EVENT NOTICE 
; 
' 


IF PRNT_ EQ O 
PRINT | LINE WLTH TIME ay 2A5 WE QLLOWS 

NEW CALL GENERATED AT TIME *%%% 3% SECS 
SKEPo2Z OUTEUT EINES 


% f 


DEFINE DELAY1, PROB AGGREGATE. PROB AS REAL VARIABLES 
DEFINE ORG.NODE GREGATE.NODE AND DEST.NODE 
AS INTEGER VARIABLES 


9 


oN ee NUMBER OF AGGREGATE NODES CONNECTED TO 
a node 


LET CKI.GENERATED = CK GENERATED R a 
LET CKT.SUM = CKT.SUM + 1 


IF CKT.SUM GE MAX.CKT 


PRINT 2 LINES WITH TIME.V AND MAX.CKT AS FOLLOWS 
NUMBER OF CKTS ATTEMPTED EXCEEDS THE TOTAL NOSGrSG 
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RTT Ke Te Re he Le Ke RCC RKC Le Ke Te Re Le KC Kee Re RKC RC Kee Re Me Me Le Te Re Re Me Le Le Ne Re Re Met Le eRe Ke Le L Te 2 


we PERMITTED ._ SIMULATION HALTED AT ****,*%* SEC 
SKIP I OUTPUT LINE 


PERFORM TERMINATION 
RETURN 
ALWAYS 


SCHEDULE A NEW.CALL AT 
time.v + EXPONENTIAL. F (MEAN. So CALL, ARRIV, 5) 


'" SELECT A TRANSMIT NODE 


' f 


LET ORG.NODE = RANDI.F(1,2,1) 


tf 


LET PROB = UNIFORM.F(0.0,10 
LET AGGREGATE.PROB = REAL.F 


'' SELECT A RECEIVE NODE 
IF PROB GE AGGREGATE. PROB 
IF ORG.NODE EQ 1 
LET DEST. NODE. = 
LET CALLED. NODE 
ALWAYS 
IF ORG.NODE EQ 2 
LET DEST.NODE = 1 
LET CALLED. NODE 
ALWAYS 
GO TO OUT.NODE 
ALWAYS 


,LET AGGREGATE.NODE = RANDI.F(1,N,2) 


IF ORG.NODE EQ. 1 
LET DEST.NODE = 20 + AGGREGATE.NODE 
LET CALLED.NODE = 2 

ALWAYS 

IF ORG.NODE EQ_2 
LET DES E = 10. + AGGREGATE. NODE 
LET CALLED.NODE = 1 

ALWAYS 


'QUT.NODE' 
PRINT 1 LINE WITH CKT.SUM,ORG.NODE,DEST.NODE 
as AND TIME.V AS FOLLOWS 5 
CIRCUIT *** FROM NODE ** TO NODE ** BEGUN AT **%*, *e%x 
“SKIP 2 OUTPUT LINE 
TET UP.ROUTE = UP.ROUTE + 1 


FOR J = 1 TO 
IF INFO(ORG NODE? AER 0 AND giNFO(ORG. NODE,J,4) EQ 0 


0.0,6) 
(i) 2 100700 / REAL Ha > 1) 


Nh 


2 


13 
— 


AND INFO {CALLED Eel) E 
GO TO ‘ON 
ALWAYS 
LOOP 
IF PRNT EQ_0 


PRINT 3 LINES WITH ORG. NER GIICEE Eee oe AND CKT.SUM 


AS FOLLOWS 
NO MUTUALLY AVAILABLE SLOTS BETWEEN ORIG.NODE ** 
AND CALLED NODE ** TO CARRY THE REQUEST SERVICE MESSAGE 
FOR CIRCUIT NUMBER = 
SKIP 1 OUTPUT LINE 
ALWAYS 
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LET CKT.FAILED = CKT.FAILED + 1 
LET UP.ROUTE = UP.ROUTE - 

LET P.BD.COUNTER = P.BD.COUNTER + 1 
GQ TO LAST.NEW.CALL 


'' SELECT A CURRENT SLOT RANDOMLY 
AND CONTINUE PROCESSING 


N1' 
T CURRENT.SLOT = RANDI.F(1,12,3) 


-O-- 


FINDS THE NEXT MUTUALLY AVAILABLE SLOT 


- = ~~ =f = = ~, = 
- = =~ ~ ~ [Tf 


ey 
ele 
4 
eal ep 
Se 
O 
<j 
open 
— 
TT 
© 


~~ 
= 


TE CURRENT ae LOG SEOr 12 


GO TO NEXT. FRAME 
ALWAYS 
LET K = CURRENT.SLOT + 1 
FOR J 12, DO 
IF DEJ.) NE.O_OR INFO(ORG.NODE,J,4) NE 0 


LET NEO (ORG: NODE. NODE, ee 
ALWAYS 
IF SPECINFO(ORG.NODE,J 
AND INFO CALLED. NOD NB 
INFO(ORG.NODE,J,1) Ea 0 AND INFO (ORG. NODE,J,4) EQ 0 


LET SLOT 
LET S$ PECINFO(ORG.NODE, J) 
GO TO ON2 


O 
ALWAYS 
LOOP 
LET FRAME] = l 
FOR J = 1 TO CURRENT SLOT , DO 
IF INFO (ORG NO 1) NE NE a "OR INFO(ORG.NODE,J,4) NE 0 
LET SP CINFO (ORC. JR E, 
ALWAYS 
IF SPECINFO ORG. NODE, J BE 6 AND 
INFO NODE ND 
_ENFO ORG NODE, BIDE i AND" INFO(ORG.NODE,J,4) EQ 0 
LET SPECINFO(ORG.NODE,J) = 0 
GO TO ON2 
ALWAYS 
LOOP 


EE PRAGA 0 


FOR J = K TO 12 
IF INFO(ORG.NODE’ 1) EQ 0 AND g NFOCORS NODE,J,4) EQ 0 
FARO CORE SPE: NODE,J,1) E 


1 

FOR J = 1 TO CURRENT SLOT, DO 

IF INFO(ORG.NODE 1) EQ 0 AND oa NODE,J,4) EQ 0 
AND INFO (CALLED :N DE, J SIME 
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GQ TO YY 
'NEXT. FRAMEL' 
LET FRAMEL = 


R J m0) 12 
IF INFO(ORG.NODE 5 (Ad NE RE 0 OR INFO(ORG.NODE,J,4) NE O 
LET SPECINFO(ORG.NODE, 
ALWAYS 
IF SPECINFO(ORG.NODE a EQ 6 
AND INFO CALLED. NOD a 
INFO(ORG .NODE,J,1) EO” 0 AND INFOUORG. NODE,J,4) EQ 0 
et SLOTL 
LET SPECINFO(ORG. NODE,J) = 
GO TO ON2 
ALWAYS 
LOOP 


hOoR J = 1 TO 
IF INFO ( ORG NODE. 9 Q 0 AND INFO(ORG. .NODE,J,4) EQ 0 


(CALLED? "Opes Te) 
Mer SLOTI = J 
GO TO ON2 


ALWAYS 
LOOP 


ey 


PRINT 1 LINE WITH CKT.SUM AS FOLLOWS 
CIRCUIT NO.**** FAILED IN EVENT NEW CALL 
SKIP OUTPUT LINES 


LET CKT.FAILED = CKT.FAILED + 1 
LET UP.ROUTE = UP.ROUTE - 

LET P.BD.COUNTER = P.BD.COUNTER + 1 
GO TO LAST.NEW. CALL 


memON2 IDENTIFIES A SLOT TO CARRY THE SERVICE MESSAGE 
'. TO THE CALLED NODE AND CREATES THE SERVICE MESSAGE 


CREATE A MESSAGE 


eae CKT. ae) = CKT.SUM 
lee TYPE 
ORG .NODE 


LET ORIGINATOR CH BSSack) 
LET MeRNGDE. Mee MESSAG hog = DEST. NODE 


LET 
bit tO.NODE MESSAGE) = = CATLED. NODE 


0 
LET DIRECTION(MESSAGE) = 0 
eee REATTEMPT(MESSAGE) = L 


IF PRNT EQ 0 
PRINT 2 LINES WITH SLOT1 AND FRAME1 AS FOLLOWS 
SLOT ** OF FRAME *“* WAS USED TO CARRY REQUEST FOR SERVICE 
FROM CALLING NODE TO THE CALLED NODE 
SKIP 1 OUTPUT LINE 
ALWAYS 


'. CALCULATES WHEN THE SERVICE MESSAGE WILL ARRIVE AT 
'. THE CALLED NODE AND SCHEDULES ITS ARRIVAL 


an 


LET DELAY1 = (eh. (12> PRAMEL + SEOTL - CURRENT. SLOT) ) 
SLOT. DURATION 
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¥ 


IF PRNT EQ 0 
PRINT 2 LINES WITH CKT.SUM,CALLED.NODE AND 
_.(TIME.V + DELAYL) AS FOLLOWS 
CIRCUIT NO. ***** HAS SCHEDULED AN REQUEST FOR SVC 
AL NODE Wa oa TLME WWI WISI EE HE SECS 
‘SKIP 2 OUTPUT LINES 
ALWAYS 


SCHEDULE A REQUEST.FOR.SVC GIVEN MESSAGE 
AT TIME.V + DEE 


yf 


'LAST.NEW. CALL’ 


RETURN 
END '' NEW.CALL 


' 


G&G RR Gw REGU RG a aR EGG w KRG Gy Raw KE GE RG aE KGa EK RG hUKEhEKKS 


gf 


EVENT REQUEST.FOR.SVC GIVEN MSGI 


'' THIS EVENT SIMULATES ACTIONS PERFORMED AT A CALLED 
'" node AFTER RECEIVING AN REQUEST FOR SERVICE FROM A 
calling NODE 


LET MESSAGE = MSGL 


IF PRNT EQ 0 

PRINT 1 LINE WITH TIME.V_AS FOLLOWS || 
REQUEST-FOR. SVC PERFORMED AT TIME ise toners 
SKIP 2 OUTPUT LINES 


t ¥ 


IF PRNT EQ 0 
PRINT 2 LINE AS FOLLOWS 
ATTRIBUTES OF MESSAGE ENTITY AT 
THE START OF REQUEST.FOR.SVC ARE: 
LIST ATTRIBUTES OF MESSAGE 
‘SKIP 2 OUTPUT LINES 


ALWAYS 
DEFINE DELAY2 AND DELAYR AS REAL VARIABLES 
LET FRAME.REC = 0 

LET CURRENT. SLOT = SLOT. ARRIVAL (MESSAGE) 
LET CALLING.NODE = FM NODE (MES AGE) 

LET CALLED.NODE = TO. NODE (M ESSAGE ) 

LET SLOT.REC = CURRENT. SL 


IF TNFO( CALLED. ~NODE , SLOT REG tf} EO Seo ees ae AND 


INFO ( CALLED NODE, SLOT. REC} 1 
ALWAYS 


IF T REATTEMDY (MESSAGE) oy _MAX ATE 
Ee KEATIEM T(MESS E =" REATTEMPT (MESSAGE) re IL 
pie pS) GLO Mb 2) Brey) 05)0 SLOT 


LET FRAMER = 1 
FOR IR = (SLOT.USED + 1) TO 12, DO 
IF INFO(CALLING.NODE,IR,1 NE 0 OR 
INFO(CALLING.NODE.IR.4 
LETS SPECINFO(CALLING.NOD TR) = 


WAYS 
IF See . NODE VEG EQ 6 AND 


LLED.NODE,IR,1) E 
INFO(CALLING. NODE, IR,1) EQ O AND 
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INFO (CALLING. NODE, IR, 4) EQ 0 
EEIeSwOrR = 
LET SPECINFO (CALLING. NODE,IR) = 
GO TO MORE.ATTEMPT 
ALWAYS 
LOOP 


me SLOT.USED EQ 1 
ee TO XX 
ALWAYS 


LET FRAMER = 2 

mee JR = | TO (SLOT.USED - a0 

IF INFO(CALLING.NODE,JR,1 N 0 OR 
INFO(CALLING.NODE.JR.4 

LET SPECINFO (CALLING .NOD ae 


ALWAYS 
1S SPECINFO (CALLING . NODE JR) EQ 6 AND 
INFO(CALLED. NODE, J al} EQ 0 AND 
INFO (CALLING. NODE, J on 6 Q AND 
INFO (CALLING .NODE, TR Th 

LET SLOTR = JR 

LET SPECINFO(CALLING.NODE,JR) = 

GO TO MORE.ATTEMPT 
ALWAYS 


LOOP 


LET FRAMER = 1 
MOR IR = (SLOT.USED + 1) T DO 
IF INFO(CALLING.NODE, IR, 1 ote “4 AND 
INFO CALLING.NODE. IR, 
EQ 0 AND “INFO (CALLED? NODE,IR,1) EQ 0 
fem SLOTR = IR 
GO TO MORE.ATTEMPT 
ALWAYS 
BOOP 


IF SLOT.USED EQ 1 
GO TO XX 
ALWAYS 


LET FRAMER = 2 
meee oR = 1 TO (SLOT.USED - 1) DO 
IF INFO (GALLI G.NODE,JR,1) EQ 0 AND 
INFO(CALLING.NODE: JR,4 
EQ 0 AND INFO(CALLED.NODE,JR,1) EQ 0 
Wer SLOTR = JR 
GO TO MORE.ATTEMPT 
ALWAYS 


LOOP 
GO TO XX 
"MORE. ATTEMPT ' 


LET DELAYR = (REAL.F(SLOTR - SLOT.USED) + FRAMER * 12.0) 
SLOT . DU RATION 
LET RECSLOT(MESSAGE) = 
LET DIRECTION (MESSAGE) 
LET SLOT .ASSIGN (MESSAGE 
Sent SLOT. ARRIVAL (MESSAC 
SCHEDULE A_REQUEST.FOR.SVC GIVEN MESSAGE 
AT TIME.V + DELAYR 


1? Dann 


' ft 


RETURN 
ALWAYS 


XX 
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a aa Boma te 


RINT WITH CKT.NUMBER MESSAGE ) 
ORIGINATOR (MESSAGE ) DESTINATION (MESSAGE EQ 
TIME.V, TO OPENS SAGE) AND FM.NODE(MESSAGE) 
¢ ° J ? sae FOLLO S) ° ¢ ¢ ° ? Vy ¢. U UU ¢ a 
CIRCUIT “*“** NODE **¥* TO ** BROKEDOWN AT ‘wr , wisi 


DUE TQ NO MUTUALLY. AVAILABLE SLOT BETWEEN THE CALLED 
NODE ** AND THE CALLING NODE 

SKIP 2 OUTPUT LINE 

ALWAYS 

cee: 


LET CKT.FATLED = CK FALL ED ae 
LEE UP; ROUTE = UP ROUTE ae 


IF FM. ;NQDE(MESSAGE) E EQ. ORIGINATOR (MESSAGE ) 
LET BD. COUNT 
DESTROY THE MESSAGE CALLED MESSAGE 


LET DOWN.ROUTE = DOWN.ROUTE + 1 

LET TYPE (MESSAGE ) = PARTIAL. BREAKDOWN 
LET DIREC LON SAGE) = 3 

LET START.TIME(MESSAGE) = TIME.V 


SCHEDULE A DOWNSTREAM. BREAK.DOWN GIVEN MESSAGE 
STR + BREAKTIME 


_, FIND THE NEXT MUTUALLY AVAILABLE SLOT 


Oko. 


Lely som m0 
LET FRAME2 = 0 


IF CURRENT.SLOT EQ 12 
GO TO NEXT. FRAME 
ALWAYS 
LET L = CURRENT.SLOT + 1 


FORUJv= cleo el2 
IF INFO(CALLED~ NODE J } NE O OR 
INFO(CALLED.NODE NE 0 
Len Se CINFOCCALLED” an ci) = 
ALWAYS 
IF SPECINFO(CALLED. NODE J) EQ 6 AND 
NFO(CALLING.NODE,J, 1) EQ, O AND 
INFO(CALLED. NODE ay 1 AND 
INFO(CALLED.NODE.’ . 
LET SP CINFO (CALLED. NO =O 
Swe SIL 
GOTO 
ALWAYS 
LOOP 
LET FRAME2 = 


i) 
FOR J = | TO CURRENT.SLOT, DO 
rE: INES {EACLE NDEs ye 18 NESOSOR 


INFO(CALLED.NODE.J.4) NE_O 

LET SP CINFOCCALLED” NODE,J) = 0 

ALWAYS 

IF SPECINFO(CALLED.NODE,J 8 hy 6 AND 
INFO(CALLED.NODE,J, 
INFO(CALLED.NOD E AND 
INFO(CALLED.NODE,J,4) E 9 
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LET SPECINFO 
LET SLOT 
G6 TO OK? 
ALWAYS 
LOOP 


Geen N) 


LET FRAME2 = OQ 
HOR J = L TO 12, DO 
IF INFO(CALLED-NODE,J, 
INFO(CALLED. NODE, J 
INFO CALLING. NODE, 
MET SLOT? = J 
OK? 


Bel FRAME2 
Bek J = | 
IF INFO 
INFO 
INFO 
i oLO 


CALLED.NODE, 


LOOP 
eeeTO YYY 
'NEXT.FRAME2 ' 
LET FRAME2 
HORE = | TO 12, DO 
IF INFO (CALLED. NODE, J 
INFO {CALLED NOD 
LET SP 
ALWAYS 


—= 
— 


INFO 
INFO 
INFO 
Ber SP 
ie SLOT2 
GO TO OK2 
ALWAYS 
LOOP 


’ f 


CALLED .NODE, 
CALLED.NODE, 
CALLED .NODE, 


a 
J; 


TORE? DO 
CALLED. > NODE, 
CALLED. NODE 


FOR J = 
IF INFO 
INFO 
INFO 
LO 


Jig 


ary 


CALLED.NODE. 5 oa 
CALLING. NNOBE™ 20 


CINFO(GALLED” NO 
IF SPECINFO (CALLED . NODE 


CINFO( CALLED. Jad 


ee 
CALLING. NODE, J, 


.NODE,J) = 


ar 
5 


0 
0 


one 


E 
E 


AND 
AND 


b 


iL 
TO CURRENT. eee 


al AND 


AND 


ba, 


4) NE NE 4 OR 

NE 

E Name = 0 

J) oe AND 
AND 


E AND 
3 8 


E 
) 


me 


AEE 


lees 


E 


} g, 0 


ERUNT 1 LINE ert CKT.NUMBER(MESSAGE) AS FOLLOWS 


eERCUIT LED IN 
arelP 1 OUTPUT Pine 


EVENT REQUEST. FOR. SVC 


GO TO EXIT 

'' OK2 IDENTIFIES A SLOT TO CARRY THE SLOT ASSIGNMENT 

'' AND SENDS REQUEST BACK TO THE CALLING NODE AND 
ALSO COMPUTES WHEN THE SERVICE MESSAGE WILL ARRIVE 

'' AT THE CALLING NODE 

,QK2 


om 


LET DELAY2 = (REAL.F(12_ * FRAME2 + SLOT2 - CURRENT. SLOT)) 
SLOT. DURATION 


'' ASSIGNS SLOTS ,UPDATES MESSAGE,AND 
'' SCHEDULES RESPONSE.TO. REQUEST 
O AT THE CALLING NODE 


LET SLOT. AS TG VUE eee = SLOT2 
LEI SLOT.ASSIGN Bae! SOL. RES 
LET RECSLOT (MES AGE) LOTRES 


IF PRNT EQ 0 

PRINT NES WITH CKT. NUMBER (MESSAGE ) LPM. ; NODE (MESSAGE) 
AND (TIME.V + DELA ¥2) as S 

CIRCUIT wwe HAS SCHEDULED A RESPONSE 7 Sve AT NODE ** 


ME sere a5 
SkIP 2 OUTPUT LINES 


PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY AT END OF REQUEST FOR@SVGe2rs 
LIST ATTRIBUTES OF MESSAGE 

SKIP CULE Ne 

ALWAYS 


SCHEDULE A RESPONSE.TO. REQUEST GiVENeMESsAcE 
Ay DIME. VY * Debi 


RETURN | 
END '' REQUEST FOR SERVICE 


BBB S ww ER Eww EGE B Rw ES wS vw GEG v Ev Ev ESE KEEEKEKEGEKSEEKEE 
VENT RESPONSE.TO.REQUEST GIVEN MSG2 
| THIS EVENT SIMULATES ACTIONS PERFORMED AT A CALLING 


NODE AFTER RECEIVING AN RESPONSE TO REQUEST 
FROM A CALLED NODE 


~~ = = = fT] - = = = = 


LET MESSAGE = MSG2 


IF__PRNT 
PRINT 1 LINE WITH TIME.V_AS FOLLOWS a. 
RESBONSE. TO.REQUEST PERFORMED AT TIME %2t+ , sevedrieds 


Sie Z OUTPUT iii 
ALWA 


IF PRNT EQ 0 
PRINT 2 LINE AS FOLLOWS 
ATTRIBUTES OF MESSAGE ENTITY 
AT THE START OF RESPONSE.TO.REQUEST ARE: 
LIST ATTRIBUTES OF MESSAGE 
SKIP 2 OUTPUT LINES 


ALWAYS 

DEFINE DELAY3 AND DELAYR AS REAL VARIABLES 
LET FRAME.REC = 0 

LET CALLING.NODE = EM. NODE (MESSAGE) 

LET CALLED.NODE = TO.NODE ESSAGE ) 

LET) SOT rE a= nem ARRIVAL (MESSA E) 


IF INFO( CALLING. NODE, SLOT REG ene ae 


92. 


AND TS CALLING NODE ,SLOT-REC,4) LI SLOT.DEPTH 
co TO RRECT 
ALWAYS 


IF REATTEMPT MESSAGE ) LT MAX.ATTEMPT 
LET REATTEMPT (MESSA EB) 7 REATTEMPT (MESSAGE) + 1 
LET SLOT.USED = RECSLOT (MESSAGE) 


LET FRAMER = Ll 
FOR IR = (SLOT.USED + 1) TO. 12 DO 
IF INFO(CALLING.NODE,IR,1 0 OR 
INFO(CALLING.NODE.IR.G NE 0 
LET SP CINFO(CALLING.NODE,IR) = 0 


IF SPECINFO(CALLING. NODE IR) EQ 6 AND 
INFO (CALLED. NODE 1} 0 AND 
INFO(CALLING. NOD bE, TR. 2 0 AND 


,IR) = 0 


INFO(CALLING.NODE.IR.4 
LET SPECINFO CALLING. NOD 
HED) SLOTR R 
GO TO MORE.ATTEMPT 

ALWAYS 
LOOP 


[emsLOT.USED EQ 1 
GO TO XX 
ALWAYS 


2 
FOR I Ion (SLOT.USED, = 1), DO 
LF INFO(CALLINC NODE ,IR,1) NEO OR 
INFO(CALLING.NODE.IR.4) NE_0 
LET SP CTNEO (CALLING. NODE,IR) = 
ALWAYS 


IF SPECINFO(CALLING. NODE ve EQ 6 AND 
INFO(CALLED. NODE IR, AND 
INFO(CALLING.NOD eG AND 
INFO{CALLING. NODE, IR ‘ 0 

LET SP CINFO (CALLING. .NODE, tk) = = 0 
fer SLOTR R 


GO TO MORE. ATTEMPT 
ALWAYS 
LOOP 
LET FRAMER = 1 
FOR JR = (SLOT.USED + 1 TQ 12 
IF INFO(CALLING.NODE, J EQ’O AND 
INFO of 


CALLING .NODE. JR >} QO AND 
INFO(CALLED. NODE, JR, 1) 0 
ME SLOTR = JR 
GO TO MORE.ATTEMPT 
ALWAYS 
LOOP 
IF SLOT.USED EQ 1 
eo TO xXx 
ALWAYS 
LET FRAMER = 


2 

Hore JR = 1 TO (SLOT.USED - 1). B 

IF Bro Gabi G.NODE,JR,1) EQ 0 O AND 
CALLING.NODE.JR.;4 

O ‘AND INFO(CALLED:NODE,JR,1) EQ 0 
EET SLOTR = JR 
GO TO MORE.ATTEMPT 

ALWAYS 


LOOP 
GO TO Xx 
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, 


'MORE.ATTEMPT' 
LET DELAYR = (REAL. jos SLOT.REC)+(FRAMER * 12.0)) 


LET RECSLOT(MESSAG ENR 
LET SLOT.ASSIGN(MES AGE) = 
LET DIRECTION (MESSAGE ) 
_LET SLOT.ARRIVAL (MESS GE) °= = sens 
SCHEDULE A_REQUEST.FOR.SVC_GIVEN MESSAGE 
¥ AT TIME.V + DELAYR 
RETURN 
ALWAYS 


xX! 


TE PRNI EO O 
3 LINES. WuElicomm IYRAR LON CHESS 
ORIGINATOR (MESSAGE DESTI NATLON (MESSAGE), 
IME.V, FM.NOD SAG 


TOE “NODE (MESSAGE) AS POL os, ~ ae 
CIRCUL FROM NODE. ** TO ** BROKEDOWN AT. **%, **%%% DUE 
TO NO MUTUALLY AVAILABLE SLOT BETWEEN THE CALLED NODE ** 
AND THE CALLING NODE ** 

SKIP 2 OUTPUT LINES 

LWAYS 


| SCHEDULES BREAK-DOWN TO BEGIN. AT THE CALLED NODE 

| AFTER A DELAY OF 13 * SLOT DURATION UNITS TO SIMULATE 
. _TIME OUT” IF NO SLOT TS cs4VAieA pee 

, CARRY THE COORDINATION MESSAGE 


-~- = - = “D> 


'Y 


Gah Ck FAILED = C ee na mee 


LET FALLE 
LET UP.ROUTE = UP.ROUTE - L 
LET DOWN.ROUTE = DOWN.ROUTE + 1 
IF PRNT EQ_0 
PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AND TIME.V 
. _. AS FOLLOW re 
CIRCUIT NO. ***** FATLED TO CONNECT AT *%%% , tosses 


Sele Z OUTPUT LINES 
LWAYS 


i T TYPE(MESSAGE) = H ee 
be Tyee ey tia y BREA 
LE sla he tine 
LET RECSLOT (ME SAGE) 
LET DIRECTION (MESSA Sis 
SCHEDULE AN UPSTREAM. REAR. DOWN GIVEN MESSAGE AT TIME.V 
+ BREAKTIME 
RETURN 


ALWAYS 


LET DIRECTION(MESSAGE) = 4 
,SCHEDULE A DOWNSTREAM.BREAK.DOWN GIVEN MESSAGE NOW 


RETURN 
"CORRECT ' 
LET INFO(CALLING . NODE, SLOT. ASSIGN (MESSAGE 


MBER (ME Sidr ) 
LET INFO(CALLING . NODE, SLOT. ASSIGN (MESSAGE) , zy 
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LET INFO (CALLING . NODE , SLOT. ASSIGN (MESSAGE), 3} = 
CALLED.NODE 


LET INFO(CALLING.NODE,SLOT.REC,4) = 

INFO (CALLING. NODE, SLOT. REC 4) + 

LET XSLOT.CALLED = SLOT.RE 

LET RSLOT.CALLED = SLOT.ASSIGN(MESSAGE 
LET SLOT . ARRIVAL (MESSAGE ) = RSLO@T.CALLED 
LET SLOT.ASSIGN ESSAGE ) SeKGeOT. CALLED 
LET RECSLOT(MESSAGE) = XSLOT.CALLED 


LET INFO(CALLED.NODE,XSLOT.CALLED,1) = 

CRT , NUMBER (MESSAGE 
ma INFO(CALLED.NODE,XSLOT.CALLED,2) = RSLOT.CALLE 
LET INFO(CALLED .NODE, XSLOT.CALLED, 3 CALLING.NODE 
LET INFO(CALLED.NODE.RSLOT.CALLED.4 
INFO(CALLED.NODE,RSLOT.CALLED,4) + 1 


CHECK WHETHER THE CIRCUIT IS COMPLETE 
IF YES, CALL THE COMPLETE.CKT ROUTINE AND 
SOULECT STATISTICAL DATA 


eee re ie Ee Gee ee 
eT START.TIME(MESSA ey) = TIME.V_- START. TIME(MESSAGE) 
PERFORM VIRTUAL.CKT GIVEN MESSAGE 


THE CURRENT SLOT IS CONTAINED IN THE MESSAGE ATTRIBUTE 
SLOT ARRIVAL 


Pon THE NEXT MUTUALLY AVAILABLE SLOT 


LET CURRENT.SLOT = SLOT.ARRIVAL(MESSAGE) 
Met SLOT3 = 0 
LET FRAME3 = 0 


IF CURRENT.SLOT EQ 12 
mer kK = 1 


GO TO NEXT. FRAME3 
ALWAYS 


merek = CURRENT.SLOT + 1 
moe 3 = K TO 12 . DO 
IF INFO(CALLED. NODE .J 1) NE 0 OR 
fNFO(GALLING.NODE.J. ) NE 0 
LET SPECINFO(CALLING.NODE,J) = 0 


ALWAYS 
IF SPECINFO(CALLED.NODE,J) EQ 6 AND 
INFO(CALLING.NODE,J,1)°EQ~O AND 


RETURN 
ALWAYS 
'' IF THE CIRCUIT HAS NOT BEEN ESTABLISHED ALL THE WAY 
'' TQ THE DESTINATION ,THEN SPECIAL ACTION MUST BE TAKEN 
'' TO ESTABLISH THE NEXT LINK TO THE DESTINATION 
LET FM. NODE (MESSAGE) = TQ .NODE(MESSAGE) 
LET TO.NODE(MESSAGE) = DESTINATION(MESSAGE) 
'' THE REST OF THIS EVENT SIMULATES ACTIONS PERFORMED AT 
'' AN INTERMEDIATE NODE . 
'' WE BEGIN TO CHECK WHETHER THERE IS A SLOT AVAILABLE AT 
'' THIS NEWLY ASSIGNED CALLING NODE TO ACCOMODATE 
'' THE TRANSMISSION TO THE NEWLY 
'' ASSIGNED CALLED NODE. 
LET CALLING.NODE = FM.NODE (MESSAGE) 
LET CALLED.NODE = TO.NODE (MESSAGE) 


212: 


“Bq°o 0 AND 
INFO(CALLING.NODE,J oe 
el Ge CINFO(CALLING . .NO 
BEL SLO 
GO TOMecon rl 
ALWAYS 
LOOP 


LET FRAME3 = 1 
FOR J = 1 TO CURRENT SlOlmne 
IF INEQ CALLING NODE Jalan 
INFO(CALLING.NODE,J.4 
eat SP CINFO (CALLED: NOD 


4d 0 
ALWAYS 
IF SPECINFO(CALLING. NODE, ie BQ 6 AND 
OA 
0 


INFO CALLING NODE , J L) 


INFO(CALLED.NODE D 
INFO(CALLING. NODE, 35) ND 
INFO(CALLING.NO 
LET § ECINFO (CALLED. ate ) =u 
LET SLOT3 
GO TO CONTL 
ALWAYS 
LOOP 
LET FRAME3 = 
FOR 


INFO(CALLING. NODE. J O AND 
INFO (CALLING , NODE, J Bie) ee > 


COSLOr econ | 
ALWAYS 
LOOP 
LET FRAME3 = 1 
FOR J = Ov ecURRE Na al 
IF TO eee . NODE, ie) EO O AND INFO(CALLING.NODE,J,4) 
INFO (CALLED. NODE). h) ee Gm0 
EE a 


GO TO CONTL 
Sea 


OOP 
GQ TO YYYY 
'NEXT.FRAME3 | 


LET FRAMES - L 
FOR J ib OmrZ 


Kron lZ 
IF INFO(CALLED. NODE J 32 Book AND 


DO 
IF INFO(CALLING.NODE, J; 1) NE O OR 
INFO(CALLING.NODE,J.4) NE 0 
LET SP CINFO(CALLED: NOD sp = eC 
ALWAYS 
IF SPECINFO(CALLING.NODE,J) EQ 6 AND 
INFO(CALLED.NODE.J,1) EQ O AND 
INFO(CALLING.NODE Js 4 9 QO AND 
INFO(CALLING.NODE, EO O 
LETece CINFO (CALLED. a ,J) = 0 
18 SEE 
COMO CONT! 
ALWAYS 
LOOP 
FOR ea leeOnel en) 
IF INFO(CALLING.NODE, J,} EQ O AND 
INFO(CALLING.NODE, J,4 EO O 
AND IN INE O (CALLED. NODE;,J,1) E 


GO 10 “CONTI 
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ALWAYS 
LOOP 


t ¥ 


ayy ' 
PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS 
CIRCUIT *** FAILED IN EVENT RESPONSE TO REQUEST 
SKIP 1 OUTPUT LINE 
"'UNSUCCESS ' 
LET EERE (MESSAGE) . =_PARTIAL. BREAKDOWN 
LET CRT PATLED = CKT. FAILED 1 
LET UP.ROUTE = UP. ROU 1 
LET DOWN.ROUTE = DOWN-ROUTE + 1 
IF PRNT EQ 0 
PRINT 1 LINE WITH CKT . NUMBER (MESSAGE ) AND TIME.V 
CIRCUIT *** FAILED TO CONNECT AT TIME “28% , eoedecrs%s 
SKIP 2 OUTPUT LINES 
ALWAYS 
LET DIRECTION (MESSAGE) | = 
SCHEDULE A NSTREAM BREAK. DOWN GIVEN MESSAGE NOW 


meeOONT! IDENTIEEFZES A SLOT TO CARRY THE SERVICE MESSAGE 
'. TO THE CALLED NODE AND ALSO COMPUTES WHEN THE SERVICE 
|. MESSAGE WILL ARRIVE AT THE CALLED NODE 


et DELAYS = REAL . HOlZ2 -snReAMtes + SLOT3 - CURRENT .SLOT) 
SLOT . DURATION 


et SLOT. ET Uy ee SLOT3 
LET SLOT.ASSIGN Behe ey 0 
LET RECSLOT (MES AGE) 


TF PRNT 
ERLNT > Fives WITH aie pee es ERE Ts EME eee en ee Sly 
+ 
ae LE see HAS sCHED LED A REQ FOR §$S RVICE AT NODE ** AT 


ME 
SKIP ‘ OUTPUT ‘LINES 
ALWAYS 


ye 


SCHEDULE A REQUEST.FOR.SVC GIVEN MESSAGE AT TIME.V + DELAY3 


IF PRNT EQ 0 

PRINT 2 LINES WITH CKT. . NUMBER (MESSAGE) PM. NODE (MESSAGE), 
AND (TIME.V + DEL AS FOLLO 

CIRCUIT Ae HAS SCHEDULED A’ RESPONSE TO ee 


SKIP 1 OUTPUT LINES 


PRINT 1 LINE _AS FOLLOWS 

ATTRIBUTES OF ENTITY AT END OF RESPONSE TO SVC ARE 
LIST ATTRIBUTES OF MESSAGE 

SKIP 2 OUTPUT LINES 

ALWAYS 


RETURN 
END '' RESPONSE TO REQUEST 
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BEGG EGER EEE GE GGG EGE EEEE GGG E EE ERR GREE GGG EERE REESSSSERE 
ENT UPSTREAM.BREAK.DOWN GIVEN U.B.D.MSG 


THIS EVENT BREAKS DOWN A ESTABLISHED CIRCUIT 
FROM THE ORIGINATOR NODE TO THE DESTINeTiOeer 


i} 
' LT REMOVES SLOT a oR ee FROM THE NODAL SLOT 

' ASSIGNMENT TABLES SO THAT THESE RELEASED SLOTS 

_ CAN BE USED IN THE ESTABLISHMENT OF OTHER CLRGUDES 
y 


THIS EVENT SELECTS A RELEVANT PORTION OF PROGRAM TO 
EXECUTE DEPENDING ON THE VALUE OF DIRECTION (MESSAGE ) 


-2 : START BREAKING DOWN AN ESTABLISHED CIRCUIT FROM 
THE ORIGINATOR NODE TO THE DESTINATION NODE 


-l ;: CONTINUE BREAKING DOWN AN ESTABLISHED CIRCUIT FReM 
AN INTERMEDIATE NODE TO THE DESTINATION NODE 


QO : BREAK DOWN WHEN A RESPONSE TO REQ FAILED 
TPAMESSAGE = U2 Bo Delisc 
DEFINE INCREMENT AS A REAL VARIABLE 


IF PRNT_ EQ 0 
PRINT 1 LINE WITH TIME.V_ AS FOLLOWS .... 
UPSTREAM BREAK DOWN PERFORMED AT TIME *2%% , seoececess 
SKIP 2 OUTPUT LINES 
PRINT 1 LINE AS FOLLOWS 
ATTRIBUTES OF THE ENTITY AT START OF UPSTREAM BD ARE 
LIST ATTRIBUTES OF MESSAGE 
SKIP 2 OUTPUT LINES 
ALWAYS 


IF Er HeEcaesen E 
ar yesel PE(MESSAG 


t 
t 
S 
t 
t 
t 
c 
t 
' 
t 
? 
t 
t 
t 
t 
’ 
t 
t 
' 
t 
f 
I 


Ll 
5 = PARTIAL. BREAKDOWN 


LET CURRENT.SLOT = SLOT.ARRIVAL(MESSAGE ) 


IF DIRECTION (MESSAGE) EO 7 
GO TO CONT.BREAKDOWN 
ALWAYS 


If DIRECTION (MESSAGE) EQ 0 
GO TO RESPONSE. BREAKDOWN 
ALWAYS 


IF PRNT ne QO AND PSR ee Ca (ees) EQ =Zo4ANnD 
Tener See) ae FULL OWN 

PRINT LINE LTH CKD NUM EE eee ce 

TIME -V-AND. START. Tt? ,DESINATIO (MESSAG EX. 

TIME. V <AND START at NODE TQ NODE Ue FOL 

CLR CUI = WAS SNCE ESTABLYSHEL 
BROKEN DOWN AT * TIM Sy. esos CARTER, CARRYING VOCE 
TRAFFIC FOR A CALL DURATION ‘OF aos SECS 

oe OUTPUT LINES 


bed oe Nee eae = ORIGINATOR (MESSAGE ) 
LET START.TIME(MESSAGE) = TIME.V 


LET DOWN. ROULDE = DOWN. ROUTER a 
LET DIREGTION( MESSAGE) == | 


FOR 1 =. feo 12 . DO 
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109 IO ar PCat (uins SCT) Ly eo CKT NUMBER (MESSAGE ) 


’ LET INFO(FM.NODE(MESSAGE T5] 
LET INFO(FM.NODE(MESSAGE 
eT SPEC NFO FM.NODE(MES AGE} 1 


EET TO. NODE emit 

LET M = INFO(FM.NOD (MESSAGE ) 
LET RECSLOT (MESSAGE 

LET INFO(EM. NODE (MESSAGE M,4 


IE 
sTwAYS CO BUTE. DELAY 


INFOCEM:3 NQDE (MESSAGE ) a3) 


INFO(FM.NODE(MESSAGE) ,M,4 


ion i 


© ll OOF 


T INFO ODE(MESSAGE) ,1 


PeeNtT 1 LINE WITH Sac 2 SUIS ELS OSD Sie SS FOLLOWS |. 


FAULT IN UPSTREAM BREAKDOWN 
SKIP 1 OUTPUT LINE 
RETURN 


f 
' 
i] 
' 
f 
f 
f 
t 
t 
f 


- 2 2 2 ee ew fT 


OR CIRC 


WE HAVE SET THE TRANSMIT AND RECEIVE SLOTS AT THE 
ORIGINATOR NODE TO ZERO. 

WE NOW BREAK DOWN THE CIRCUIT ALONG THE UPSTREAM PATH 
FROM THE ORIGINATOR NODE TO THE DESTINATION NODE. 


CHECK WHETHER WE ARE AT THE DESTINATION NODE 

IF SO ,WE NEED ONLY DELETE THE TRANSMIT AND RECEIVE 
SLOT ASSIGNMENTS FOR THIS CIRCUIT AND 

COLLECT STATISTICS DATA 


' CONT. BREAKDOWN ' 


= = = ll rllC TTOCCOOUlUC SUC 


SLOT1.XMIT = _RECSLOT OBE (ese 

SoTL REC = INFO TQ. ODE (MESSAGE) )8L OT1.XMIT,2) 
INFO(TO.NODE (MES E),s Ta oe L). = 0 
SPECINFO(TO. ODE MES SSAGE) Ser lexi) = 6 
INFO(TO.NODE PieeMIT. 2) = 0 
INFO(TO. NODE MESSAGE SLOT. XMIT °3) = 0 
INFO(TO.NODE(MESSAGE),SLOT1 ie 
INFO(TO.NODE(MESSAGE),SLOTL. REG” LS Sa 








WE HAVE COMPLETED RELEASING THE DOWN-SIDE 
RECEIVE AND TRANSMIT SLOT ASSIGNMENTS 


IF WE ARE AT THE DESTINATION NODE,WE CAN NOW COLLECT 
BEALTISTICS., OTHERWISE 

WE WILL CONTINUE BREAKING DOWN THE UP-silpE SLOT 
ASSIGNMENTS 


F TO.NODE(MESSAGE ae DESTINATION (MESSAGE 
LET START.TIME E(MESSAGE 
PERFORM STATS.AT.END.BREAK.DOWN GIVEN MESSAGE 


Set IMMER cman SIME (MESSAGE) 


LET -— = TO.NODE (MESSAGE ) 


BET 


FOR I TEOnele? oe DO 
IF INFO Ge f NODE (MESSAGE) I,1) EQ CKT.NUMBER(MESSAGE) 


MI 
LET TO. NODE MESSAGE ) |= 

LET M = INF (EM.NO NOD (MESSAG 
LET RECSLOT(ME 

mer Hoe ae fo): M, 4) 


LET INFO 
fet SPEC 


ay tea beh SOE eee) » ie 3) 


PNEOCEM, NODE 
Io hls SMO NB) 2 


NFO(FM 


M4 
AGRY? 


MESSAGE 
MESSAGE 
ODE (MES 


i Or 


I) 
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LET INFO( FM. NODE (MESSAGE). 1,2 a= 

LET INFO(FM.NODE (MESSAGE) ,I 3) = 0 

[de SIDE ISS. TION (ME SAGE) = -1l 

GO TO COMPUTE, DEEAx 
ALWAYS 
LOOP 
Pil ee LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS 
CIRGUET HAS FAULT IN EVENT UPSTREAM BREAK DOWN 
RETURN OUTPUT LINE 


' USES THE ASSIGNED TRANSMIT SLOT TO CARRY THE BREADDOWN 
MESSAGE TO THE NEXT NODE UPSTREAM 
ON THE WAY TO THE DESTINATION NODE. 


' COMPUTE WHEN THE BREAK DOWN MESSAGE WILL ARRIVE AT 
' THE NEXT NODE 


' COMPUTE. DELAY ' 
IF_SLOT2.XMIT GT (CURRENT.SLOT + 


IL 
LET DELAY = SLOTZ.XMIT - CURRENT.SLOT 
ane NEXT . BREAKDOWN 


—-— =~ = = = = ws 2 


Oa as EQ (GURREND a sO aces 
GO TO NEXT. BREAKDOWN 
LWAYS 


IF_SLOT2.XMIT LT (CURRENT.SLOT + 1 

LET DELAY = SLOT2.XMIT - CURRENT.SLOT + 12 
GO TO NEXT. BREAKDOWN 

ALWAYS 


PRINT 1 LINE WITH CKT. NUMBER (MESSAGE ) AS FOLLOWS 
FAULT IN UPSTREAM BD DELAY CALCULATION FOR CIRCUIT **** 
SKIP OUTPUT LINE 


NEXT .BREAKDOWN ' 


LET SLOT.ARRIVAL OT SLOEZ >) xii 

LET INCREMENT = REAL.F LAY) * SLOT.DURATION 

SCHEDULE AN UPSTREAM.BREAK.DOWN GIVEN MESSAGE 
AT TIME.V + INCREMENT 

GQ TO LAST. UPSTREAM 


RESPONSE. BREAKDOWN ' 


LF Se eS oe, Ree 
LET START.TIME(MESSA Bor MEV ee ae PUNE eS sasih 
ALWAYS STATS. ATZEND-S EAK. DOWN GIVEN MESSAG 


IF _RECSLOT(MESSAGE) LE 12 
DESTROY THE MESSAGE CALLED MESSAGE 
ALWAYS 


"LAST. UPSTREAM ' 


IF PRNT_ EQ 0 
PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF THE ENTITY AT END OF UPSTREAM BD ARE 
LIST ATTRIBUTES OF MESSAGE 
SKIP 1 OUTPUT LINE 

ALWAYS 
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tt 


RETURN 
END '' UPSTREAM BREAK DOWN 


RUBBER URRR RRR R RR RRR EERE RR RR RRR RE RRR RU aU GU GU RSE GRsG&SRESE 
ENT DOWNSTREAM.BREAK.DOWN GIVEN D.B.D.MSG 


THIS EVENT BREAKS DOWN A ESTABLISHED CIRCUIT 

IN THE DOWNSTREAM DIRECTION ,THAT IS 

FROM THE DESTINATION NODE TO THE ORIGINATOR 

NODE. THE CIRCUIT CAN BE FULLY OR PARTIALLY ESTABLISHED 


i 

' IT REMOVES SLOT ASSIGNMENTS FROM THE NODAL SLOT 

' ASSIGNMENT TABLES SO THAT THESE RELEASED SLOTS 

' CAN BE USED IN THE ESTABLISHMENT OF 

' OTHER CIRCUITS 

' THIS EVENT SELECTS A RELEVANT PORTION OF PROGRAM TO 

' EXECUTE DEPENDING ON THE VALUE OF DIRECTION (MESSAGE) 
' 

' 

, 


1 : START BREAKING DOWN AN ESTABLISHED CIRCUIT 
FROM THE DESTINATION NODE TO THE ORIGINATOR NODE 


2 : CONTINUE BREAKING DOWN AN ESTABLISHED CIRCUIT FROM 
AN INTERMEDIATE NODE TO THE ORIGINATOR NODE 


3 : START BREAKING DOWN FROM A NODE TO THE ORIGINATOR 
NODE CALLED BY REQUEST FOR SERVICE 
START BREAKING DOWN FROM A NODE TO THE ORIGINATOR 
NODE CALLED BY RESPONSE TO REQUEST 
T MESSAGE = D.B.D.MSG 


DEFINE INCREMENT AS A REAL VARTABLE 


i] 


0 
PRINT. 1 LINE WITH TIME.V_AS FOLLOWS eae 
DOWNSTREAM BREAK DOWN PERFORMED AT TIME 7% , *eecret 
SKIP 2 OUTPUT LINES 
PRINT 1 LINE AS FOLLOWS 
ATTRIBUTES OF THE ENTITY AT START OF DOWNSTREAM BD ARE 
LIST ATTRIBUTES OF MESSAGE 
SKIP 2 OUTPUT LINES 
ALWAYS 
IF FEL TBE HEgSA EQ 1 
LET TYPE(MESSAGE) = PARTIAL. BREAKDOWN 
“ CURRENT.SLOT = SLOT.ARRIVAL(MESSAGE) 
IF DIRECTION(MESSAGE) EQ 1 
GO TO ONE 
ALWAYS 
IF _DIRECTION(MESSAGE) EQ 2 
GO TO TWO 
ALWAYS 
IF DIRECTION (MESSAGE) EQ 3 
GO TO THRE 


IF DIRECTION(MESSAGE) EQ 4 


LOL 


GO TO FOUR 
ALWAYS 


ONE! 


IF PRNT EQ 0 AND DIRECTION (MESSAGE EQ, 1 

‘PRINT 3 LINES WITH CKT.NUMBER(MESSAG ) 

ORIGINATOR MESSAGE), DESTINAT Was FOLLOW GE 

START. TIME(MESSAGE) AND TIME. 

CIRCULT cRM = OMe WAS STABLISHED FOR AgGAME 
DURATION OF *#%% cute SECS | ts BEING BROKEN DOWN 
IN THE DOWNSTREAM AT TIME) Sie, Seeee SECS 

Pikes 2 OUTPUT LINES 


LET EM NODE (MESSAGE ) = DESTINATION (MESSAGE) 
LET START.T IME (MESS GE) = TIME.V 


LET DOWN.ROUTE = DOWN.ROUTE + = 
LET DIRECTION (MESSAGE) = 

' JUMP. IN’ 

FOR ia eno) 


We. ie 
TF INFO(EM. NODE (MESSAGE) , I,1) EQ CKT.NUMBER (MESSAGE) 


LET TO.NODE MESSAGE) = INFO(FM. NODE (MESSAGE) , Ie) 
LET MM = IN EM . NO NO E(MESSA E),1 


LET INFO(FM.NODE NE SAGE) ,MM #) = 
INFO(FM.NODE(MESSAGE);3MM;4) - 1 

LET INFO(FM.NODE(MESSA ili NNe 0) 
LET SPECINFO(FM.NODE(MES AGE} wy = 6 
LET INFO(FM.NODE(MESSAGE),1, = QO 
LET INFO(FM.NODE(MESSAGE).1.3) = 0 
LET DIRECTION(MESSAGE) = 2 
GO TO COMPUTE. DELAY 

ALWAYS 

LOOP 


PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS 
FAULT IN EVENT DOWNSTREAM BD FOR CIRCUIT 

SKIP 1 OUTPUT LINE 

RETURN 


WE HAVE SET THE TRANSMIT AND RECEIY Eso 
THE DESTINATIONGNODE a 


) FIG. 
WE NOW BREAK DOWN THE CIRCUIT ALONG THE DOWNSTREAM PATH 


CHECK WHETHER WE ARE AT THE ORIGINATOR NODE , 
IF 50_,WE NEED ONLY DELETE THE TRANSIT iD 
AND RECEIVE SLOT ASSIGNMENTS FOR THIS CIRCUIT 
AND COLLECT STATISTICS DATA 


-—-_ -_ 8. =. 2. = = s Ss ws 
Ce ee ee ee ee ee ee ee | 


LEDS skOnZ. AIL NEO( TO. NODE (MESS 
LEE eShOL? REC l=. UNO ODE TMES CEs hme XMi ies) 
LE Pern EO TO. NODE MES oer EZ re sides 9 











LEP INFO LTOSODE Mrs ; oe XMIT, io ) 0 

LED ANEOt LO NODE (MESSAGE ‘SLOL2, a =al0 

LET INFO(TO.NODE(MESSAGE),.SLOT2. REG, +2 = 
INFO(TO.NODE (MESSAGE SOs. REC ,4 L 


WE HAVE COMPLETED RELEASING THE UP=SIDE REGED tea 
TRANSMIT SLOT ASSIGNMENTS 


IF WE ARE AT THE ORIGINATOR NODE,WE CAN NOW COLLECT 
SLATISTICS, OTHERWISE 
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t 
t 


f 
t 


WE WILL CONTINUE BREAKING DOWN THE DOWN SIDE SLOT 
ASSIGNMENTS 


me TO. Ce ane eee eee es 


mem StART . TIME (ME 
SRE ORM STATS.AT.END.BREAK.DOWN GIVEN MESSAGE 


= Vv - START TIME (MESSAGE) 


ALWAYS 
LET FM.NODE(MESSAGE) = TO.NODE(MESSAGE) 
FOR ET = 1 TO 12 


DO 
IF _INEO FM.NODE (MESSAGE) ,I,1) EQ CKT.NUMBER (MESSAGE) 


SOT eeewien T 
LET TO.NODE MESSAGE) = tae hee SE Vo) 
LET M = INF (ete Neve (MESSAGE) 


CET 
S AGE} I 


OO lt Or 
o>) 


Hoined to out 


FM.NODE 
LET DIRECTION(MESSAGE) = 2 
GO TO COMPUTE .DELAY 


ALWAYS 
ee 
PRINT 1 LINE WITH CKT, NUMBER (MESSAGE) AS FOLLOWS 


CIRCUIT ***** HAS FAULT IN EV 


NT DOWN BREAKDOWN 


RETURN 
"THREE ' 


ir P 
PRINT 3 LINES WITH CKT.NU A 
START, TIME (MESSAGE } DESTINAT a GE 


RNT EQ O AND TH CRT. NUSBER (MES eee 


START. TIME (MESSAGE) AND TIME v A 
CIRCUIT ***%%" PM 180. NOT BE ESTABLISHED. 
BEGIN TO BREAK DOWN THE CIRCULT AT TIME 
TIME NOW IS 
SKIP 2 OUTPUT LINES 
ALWAYS 
iL DIRECTION (MESSAGE) = 
GO TO JUMP 
"FOUR" 


IF PRNT EQ OQ AND Pee Oe eee) ee 


PRent 3 LINES WITH CK 


BER( MES 


START TIME (MESSAGE } Pee TNATTON MESSAGE 
ee ART TIME (MESSAGE) AND TIME.V_ AS FOLLOW 
SeRoULT ““<*~ EM TOp eas ean 


NOT BE ESTABLISHED, | 


BEGIN TO BREAK. DOWN WHE CIRCULT AT TIME 
TIME NOW IS 


PeLP 2 OUTPUT ‘LINES 


ALWAYS 


GO | TE ROE ON SSE)! 


t 


~- =~ —- - ~~ 


ino) JUMP 

USE THE ASSIGNED TRANSMIT SLOT TO CARRY 

THE BREADDOWN MESSAGE TO THE NEXT NODE 
UPSTREAM ON THE WAY TO THE DESTINATION NODE. 


COMPUTE WHEN THE BD MSG WILL ARRIVE AT THE NEXT NODE 
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COMPUTE. DELAY ' 


IF_SLOT1,XMIT GT (CURRENT.SLOT + 1 

LET DELAY = SLOTL.XMIT - CURRENT.SLOT 
GO TO LAST.DOWN 

ALWAYS 


IF SLOT1.XMIT EQ™(CURREND SiO cme) 
i RIA ioe ale 


GO TO LAST. DOWN 
ALWAYS 


EF SLOT. xMEr EE CURRENT. SO + si 
LET DELAY = SLOTL.XMIT CURRENT .cLOT 7 aie 
GO TO LAST.DOWN 


PRINT 1 LINE WITH CKT . NUMBER (MESSAGE ) AS FOLLOWS 
FAULT IN DOWNSTREAM BD DELAY COMPUTATION AT CKT ‘+ 


"LAST. DOWN ' 
LET SLOT. ARRIVAL(MESSAGE) = SLOT. XMIT 
LET INCREMENT = REAL.F(DELAY) * SLOT.DURATION 


IF PRNT EQ 0 
PRINT 1 LINE AS FOLLOWS 
ATTRIBUTES OF THE ENTITY AT END OF DOWNSTREAM BD ARE 
LIST ATTRIBUTES OF MESSAGE 
SKIP 1 OUTPUT LINE 
ALWAYS 


SCHEDULE A DOWNSTREAM.BREAK.DOWN GIVEN MESSAGE AT TIME.V + INCREMED 


RETURN 
END '' DOWNSTREAM BREAKDOWN 


' 
t 


LCCC L KCC RRL LCL LCL RRC RCL LCR RC LC LC Le RR RRL LOR RC RC RL R Re LOL RoR LOR RRL Le LoL LCL 
UTINE FOR VIRTUAL.CKT GIVEN MSG 


O 
' THIS ROUTE COLLECTS STATISTICS ON CERCUMUS sin ee 
' ESTABLISHED AND SCHEDULES THEIR EVENTUAL 

' DISESTABLISHMENT ACCORDING TO AN EXPONENTIAL 

| DISTRIBUTION FUNCTION WITH A MEAN CALL DURATION 

E 


T MESSAGE = MSG 
DEFINE CALL.END.TIME AS A REAL VARIABLES 


IF PRNT EQ 1 
PRINT 1 LINE WITH TIME.V_ AS FOLLOWS el 
ROUTINE VIRTUAL CIRCUIT PERFORMED AT TIME %o%8% , obcedros 
SKIP 1 OUTPUT LINE 
ALWAYS 


IF PRNT EQ 0 

PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY WHEN VIRTUAL CKT WAS CALLED ARE 
LIST ATTRIBUTE OF MESSAGE 

SKIP 2 OUTPUT LINES 


' 
t 
t 
t 
t 
R 
t 
t 
t 
t 
t 
t 
L 
t 


LET CKT.ESTAB = _CKIT ESTAR Mem 
LET UPSLOURES= UES OU Rea 
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ibe DELAY .SUM = DELAY.SUM + START.TIME Rogen 
LET AVG.TIME.EST = DELAY.SUM /REAL.F(CKT.ESTAB 


= DID THLS ©PREULT TAKE THE MOST TIME TO ESTABLISH 


Viney 


LET LONG. TIME 


' SCHEDULES THE TIME FOR THE NEWLY ESTABLISHED CIRCUIT 
. TO BE ACTIVE AND SELECTS FROM EITHER ORIGINATOR 
SeNODE OF DESTINATION THE CIRCUIT TO BE 

' DISESTABLISHED AND SCHEDULES THE EVENT TO BREAK DOWN 
eit GLRCULT 


LET CALL.DURATION EXPONENTIAL. F (MEAN.CALL. DURATION, 7 ) 
mek CALL.END.TIME CALL.DURATION + TIME.V 

eT ae DER ~ Sn Teo + CALL. DURATION 

LET AV RATION REAL. F(CKT.ESTAB) 

LET START. Ete (MESSAGE) = CALL. DURATION 

LET TYPE (MESSAGE = FULL. BREAKDOWN 


LET SLOT.ARRIVAL(MESSAGE) = RANDI.F(1,12,4) 
PRINT 1 LINE WITH SLOT.ARRIVAL (MESSAGE) AS FOLLOWS 
CIRCUIT BEGIN BREAKING DOWN IN SLOT *** 
SKIP 1 OUTPUT LINE 
ALWAYS 


Pee PALR.POINTER EQ 1 

LET FAIR.POINTER = Q 

mel FM.NODE(MESSAGE) = ORIGINATOR (MESSAGE ) 
LET DIRECTION (MESSAGE 

SCHEDULE AN UPSTREAM. BREAK.DOWN GIVEN MESSAGE 

Stee alin END. LIME 

GO TO LAST.VIRTUAL 
ALWAYS 


IF FAIR.POINTER EQ 0 
LET FAIR. POINTER 
LET DIRECTION(MESSAGE) = 1 
SCHEDULE A DOWNSTREAM.BREAK.DOWN GIVEN MESSAGE 
AT CALL. END. TIME 
ALWAYS 


'LAST.VIRTUAL' 


ae PRNT eae QO AND FAIR. POINTER (Hes 

PRaNT 3 LINES WITH CKT.NUMBER(MESSAG E) 
ORIGINATOR (MESSAGE } DESTINAT ON (HESS GEG 
fete. V, CALL. eR OTT ON a CALL.END. TIME 


emgeurT  xe** FM xETO” ok WAS ESTABLISHED AT TIME 
<* AND HAS CALL DURATION OF SECS, 
BREAKDOWN BEGIN IN THE UPSTREAM DIRECTION AT 2% Siberice 
SKIP 1 OUTPUT LINE 
ALWAYS 


IF PRNT 3£2_0 AND FAIR. POINTER EQ 1 

PRINT 3 LINES WITH CKT.NUMBER (MESSAGE E) 
ORIGINATOR (MESSAGE) DESTINATION (MESSAGE), 
TIME.V, CALL ON AND CALL. END. TIME 


Papeuyy ee EM oe TO ** WAS ESTABLISHED AT TIME 

“ AND HAS CALL DURATION OF SECS, | 
BREAKDOWN BEGINS IN THE DOWNSTREAM DIRECTION AT =. 23% 
Skip. OUTPUT LINE 


- = - = ae — > 


oUt 


10 ps) 


ate =e at, 
ee #% 


' 7 


IF PRNT £9.09 
PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY AT THE END OF VIRTUAL.CKT ARE 
LIST ATTRIBUTES OF MESSA 
SKIP 2 OUTPUT LINES 

ALWAYS 


RETURN 
END ‘' VIRTUAL CKT 


BR &ER Eww RaRRw Rv EKG vo SKE KRG wsEv Ev EKG R GRIESE EUEUEEEE 
OUTINE FOR STATS.AT.END.BREAK.DOWN GIVEN B.D.MESSAGE 
i 


THIS ROUTINE COLLECTS STATISTICS OF THieer Gries 
THAT ARE BROKEN DOWN 


T MESSAGE = B.D.MESSAGE 
DEFINE BD.TIME AS A REAL VARIABLE 


IF TYPE(MESSAGE) EQ FULL.BREAKDOWN 
acces .DISESTAB = CKT.DISESTAB + 1 


LET CKis.BDe= Chie Mabaeiniaae + ran FAILED 

LET DOWN.ROUTE = DOWN.RO 

LET 5D. Jae START. TIME (MESSAGE) 

LET SUM.BD.TIME = SUM.BD-TIME + BD. 

LET AVG.BD.TIME = SU BP, REAL. rE (CKTS .BD) 


' 
' 
? 
t 
' 
R 
’ 
' 
f 
' 
L 
1 


COLLECTS STATS ON THE BREAK DOWN OF 
PARTIALLY ESTABLISHED CIRCULTS 


109 "START, TIME(? reat ae oe Sa 
Ik START. TIME MESSAG ae eee 
nae LONG. = STAR TIME (MESSAGE) 


ae TOT.P.BD = TOTsP.BD 4£.START. TIME (Mbses ce 
LET P.BD.COUNTER = P.BD.COUNTER + 
CET AVG.P.BD = TOT.P.BD / REAL.F(P.BD.COUNTER) 


'' COLLECTS STATS ON THE BREAK DOWN OF 
'' FULLY ESTABLISHED CIRCUITS 


IF TYPE(MESSAGE ) ee eee BREAKDOWN 


IF START. Tae MES LONG .C.BD 
LET LONG. STAR TIME (MESSAGE) 
ALWAYS 


LET TOT.C.BD = TOT.C.BD + START jDOaME(MEso cee 
LET C.BD.COUNTER = C.BD. COUNTERS 
Tc apace = TOT.G uD {/ REAL. F(CsBDe COUNTERS 


DESTROY THE MESSAGE CALLED MESSAGE 


END '' STATS AT END BREAKDOWN 
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SSS SSS SSS SSS SS SS SS SSS SSS SS SS SSS SSS SSS SS SS SSsSsSssssssse 
ENT HALT.SIMULATION SAVING THE EVENT NOTICE 


~~ ~T] -- - ~ ~« 
-_ ~~. —-£ => ss» ss» »> » 


THIS ROUTINES HALTS THE PROGRAM AND PRINTS 
'" ANALYSIS STATMENTS AT THE END OF A SIMULATION RUN 


tat 


LET PRNT.COUNTER = PRNT.COUNTER + 1 


START NEW_PAGE 
PRINT 1 LINE WITH PRNT.COUNTER AS FOLLOWS 
THIS IS THE ** TH SIMULATION RUN 

SKIP 1 OUTPUT LINE 


7? 


IF (CKT. GENERATED - UP.ROUTE) G 
Wed FRACT.SUCCESSFUL. CALL = REALS ECGKT ESTAR) 2200.00 / 
AL .F(CKT. GENERATED | - UP. ROUTE) 
ee CRLOST CALL - 100700 - FRACT SUCCESSFUL. CALL 


PRINT 16 LINES WITH CKT.SUM, CKT.GENERATED, CKT.ESTAB, 
CKT.DISTAB, CKT.FAILED, OFFERED. TRAFFIC, 
VG.TIME.EST, LONG.TIME.E ST, CKT.LONG.TIME.EST, 
AVG.DURATION, P. BD. COUNTE 
C.BD.COUNTER. AVG. ER or. DEP 
BRAG L. “SUCCESSFUL. GALE D ANB FRACT. Lose. CALL 


AS FOLLOWS 
STATISTICS OF THIS SIMULATION : a2 
THE NUMBER OF CIRCUIT CREATED SO FAR. = **%% 
THE NUMBER OF CIRCUIT GENERATED = %75%*%% 
THE NUMBER OF CIRCUIT ESTABLISHED = =*: er 
THE NR OF ESTABLISHED CKIS THAT ARE DISESTABLISHED 
THE NUMBER OF CIRCUITS WERE NOT ESTABLISHED = SE=% 
THE OFFERED TRAFEIC Is — 
THE AVERAGE TIME TO ESTABLISH A CIRCUIT = 2% RRR 
THE LONGEST TIME TO ESTABLISH A CIRCUIT *%%, tore yp sods 
THE AVERAGE DURATION OF AN ESTABLISHED CIRCUITS | *%% , sore 
THE NUMBER OF PARTIALLY ESTABLISHED CIRCUITS = **** 
THE NUMBER OF FULLY ESTABLISHED CIRCUITS = **: 7 
THE AVERAGE TIME TQ BREAK DOWN A COMPLETED CIRCUIT ***,*** 
THE SLOT DEPTH IS ne 
PERCENTAGES OF SUCCES SFULL GAL Lesage 
PERCENTAGES OF LOST CALL ede dere rere 
SKIP 3 OUTPUT LINES 


FOR NODE = 1 TO 2 , DO 


leet EMPTY = QO 

LET TRANSMIT.SLOTS = 

mem RECEIVE.SIGS = 0 

Bee RECEIVE.SLOTS = QO 


RESERVE SLOTS. aan BREE AS. lez 
FOR oho 


IF INFO NODE, S44)" ¢ CE 1 

LET RECEIVE. Si = RECEIVE.SIGS + INFO(NODE,S,4) 
LET RECEIVE.SLOTS = RECELIVE.SLOTS + 1 

LET SLOTS.PER. FRAME(S) = = INFO(NODE,S,4) 

GO TO OUT 
ALWAYS 


IF INFO(NODE,S GT 0 
LET TRANSMIT. aa = TRANS 
[MET SLOTS. PER. FRAME(S) = ] 


D E 
BLIS 


0 


S 1 
NFO(NODE,S,3) 


GO TO OUT 


|, ALWAYS 
IF _INFO(NODE,S,1) EQ 0 AND INFO(NODE,S,4) EQ 0 
LET EMPTY =’EMPTY + 1 
LET SLOTS.PER.FRAME(S) = 0 
_ ALWAYS 
QUT" 
LOOP 


18 


PRINT 2 LINES WITH NODE, EMPTY, TRANSMIT.SLOTS 
-RECEIVE,SIGS AND RECELVE:SLOTS AS FOLLOWS 
NODE ** HAS ** EMPTY SLOTS, ** TRANSMIT SLOTS, AND 
HAS ** RECEIVE SIGNAL STACKED IN ** RECEIVE SLOTS 
SKIP 2 OUTPUT LINES 


-— = 2. -m» = 


' PRINT THE TIME SLOT ASSIGNMENT AT EACH NODE 


PRINT 1 LINE WITH SLOTS] PER. PRAME (2 SLO Tsar ies 

SLOTS . PER. FRAME(3),SLOTS. PER. FRAME(4 

SLOTS .PER.FRAME(5) ,SLOTS.PER.FRAME(6 

; , 7), SLOTS. PER. FRAME GS 

9), SLOTS .PER. FRAME CLOGS 
oe glial AND SLOTS. PER. FRAME(12 ) 

0 Oo Once AS ¢ My ILL ? WS nes ae CPRCOACOR AS etc, sale af, 


_, SKIP 2 OUTPUT LINES 
RELEASE SLOTS. PER. FRAME(*) 


—” 
‘z 
© 

- re 

~ 1 
ry 
try 
v9) 
eo 


ate ate 
Ch 


LOOP 
PERFORM TERMINATION 
TURN 
D HALT SIMULATION 


- - 2 2 2 = 


E 

N 
' 
’ 
' 
' 
' 
' 


G&G wR WRG & R&R i Rk RG UG kB RG RG GBS kBUk BGK & KU KG &EE 
ROUTINE FOR TERMINATION . 


FOR EACH NEW.CALL IN EV.S(I.NEW.CALL) , DO 
CANCEL THE NEW. CALL 
DESTROY THE NEW. CALL 

LOOP 

FOR EACH REQUEST.FOR.SVC IN EV.S(1.REQUEST.FOR.SVC) ,DO 
CANCEL THE REQUEST.FOR.SVC 
DESTROY THE R QUEST .FOR.SVC 


FOR EACH RESPONSE.TO.REQUEST 
IN EV.S(1.RESPONSE.TO.R QUEST ) DO 
CANCEL THE RESPONSE TQ. REQUE ue 
_ DESTROY THE RESPONSE. TO.REQUEST 


FOR EACH UPSTREAM. BREAK. DOWN 

IN SO ee ae eas Oe DO 
CANCEL THE UPSTREAM. BREAK .DOWN 

eta THE UPSTREAM. BREAK. DOWN 
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FOR EACH DOWNSTREAM. BREAK . DOWN 

IN EV.S(1.DOWNSTREAM. BREAK. DOWN ) DO 
CANCEL THE ORAS TR EAM BREA N 

_ DESTROY THE DOWNSTREAM. BREAK. DOWN 


FOR Beer HALT. SIMULATION 

IN EV.S(1I.HALT. SIMULATION DO 
CANCEL THE HALT. SIMULATI 
oo THE HALT.SIMULATION 


¢ ft 


RETURN 


E 
END TERMINATION 
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SIMULA 


X 


3 


ENERA 


TEMPORARY END TEES 


TN ORG=N 


APPENDIX E 
TION PROGRAM FOR EVALUATING STATIC AND DYNAMIC 


30 d 
GV 
EG SP N 


Spey Sil) 


JOB ASS=J 


ARM.GO='MAP ,SIZE=760K' 


60,0203). FLOW vor 
M1. 3060 sLINES= (20 
G,REGION: GO=4096K, 


TE LIST ROUTINES 


oo © #® e® @ e# @ 


EVERY MESSAGE HAS A CKT. NUMBER A TYPE, AN ORIGINATOR, 
A DESTINATION, A FM.NODE TO.NODE 
A START. TIME. oon slom ARRIVAL A SLOT SAS Gimetin 
A RECSLOT, A DIRECTION, A REATTEMPT 
DEFINE START.TIME AS A REAL VARIABLE 
EVENT NOTICES INCLUDE REQUEST. FOR.SVC RESPONSE . TO.REQUEST, 
.DEST.BREAKDOWN, TO.ORG.BREAKDOW 
NEW. GALL, DIJK. MANIPULATION AND HALT. SIMULATION 
EVERY REQUEST.FOR.SVC HAS A MSG1 
EVERY RESPONSE.TO.REQUEST HAS A MSG2 
EVERY TO.DEST.BREAKDOWN HAS A BDTODEST 
x EVERY TO.ORG.BREAKDOWN HAS A BDTOORG 
PRIORITY ORDER IS NEW.CALL, TO.DEST.BREAKDOWN, 
TO.ORG. BREAKDOWN , REQUEST. FOR. SVC 
RESPONSE. TO. REQUEST , DIJK .MANIPULATION’ 
- AND HALT. SIMULATION 
DEFINE INFO AS A 3-DIMENSIONAL INTEGER ARRAY 
DEFINE SPECINFO AS A 3-DIMENSIONAL INTEGER ARRAY 
DEFINE SLOTS.PER.FRAME AS A 1-DIMENSIONAL INTEGER ARRAY 
DEFINE ATTENUATION AS A 2-DIMENSIONAL INTEGER ARRAY 
DEFINE LINKCONNECT AS A 2-DIMENSIONAL INTEGER ARRAY 
DEFINE MEANY.GIVEN AS A 1-DIMENSIONAL REAL ARRAY 
DEFINE PROBY.GIVEN AS A 1-DIMENSIONAL REAL ARRAY 
DEFINE SLOT.DEPTH AND N AS INTEGER VARIABLES 
DEFINE DIJKSTRA AND DISTANCE AS 2-DIMENSIONAL REAL ARRAYS 
DEFINE LINK.ATTENU AS A 2-DIMENSIONAL REAL ARRAY 
DEFINE UP.DATE.PERIOD AS A REAL VARIABLE 
DEFINE HOP.GREATEST,HOP.SUM AND HOP.AVG AS REAL VARIABLES 
DEFINE C.LEVEL AS A’ 2-DIMENSIONAL REAL ARRAY 
DEFINE AVAILCHANNEL AS A 2-DIMENSIONAL REAL ARRAY 
DEFINE TOT.HOP.GREATEST AS A REAL VARIABLE 
DEFINE N.LINKS AND MAX.LINKS.PER.NODE AS INTEGER VARIABLES 
DEFINE CALLED.NODE AND CALLING.NODE AS INTEGER VARIABLES 
DEFINE LINKS AND LINK.NODE.RATIO AS REAL VARIABLES 
DEFINE NODETRAFFIC AS A REAL VARIABLE 
DEFINE BEST.PATH AS A 2-DIMENSIONAL INTEGER ARRAY 
DEFINE MEANY AS A 2-DIMENSIONAL REAL ARRAY 
DEFINE PRNT.COUNTER AS AN INTEGER VARIABLE 


Lio 


CONTROL 


DEFINE 
DEFINE 


DEFINE 
DEFINE 
DEFINE 


DEFINE 
DEFINE 


DEFINE 
DEFINE 
DEFINE 


DEFINE 
DEFINE 


DEFINE 


MAIN 


tf 


_ BONG .TI ME. wom. AVG.FP. 


PATHPRNT AS AN INTEGER VARIABLE 


CKT.ESTAB, CKT.FAILED, CKT.SUM AND CKT.DISESTAB AS 
INTEGER VARIABLES 
Bre LOeDESTE AND BK. TO. 


ORG AS INTEGER VARIABLES 
ABLE 


PRNT AS AN INTEGER VARIA 
ESL: IML GAE GS SLOT.DURATION, MEAN.SYS.CALL.ARRIV, 
AND MEAN.CALL.DURATION AS REAL VARIABLES 


FAIR. SOINTER AS AN INTEGER VARLABLE 
ONG.P. AVG.C.BD, 
ONG.C.BD AND AVG.TIME. eer AS REAL ow ARTABLES 
CKT.LONG.TIME.EST AS AN INTEGER VARIABLE 
MAX.CKT AS AN INTEGER VARIABLE 

SUM.BD.TIME AVG | BD. TIME, TOT.P.BD AND TOT.C.BD 
AS REAL TARLAB 

CKTS.BD AS AND TNEEGER VARIABLE 

EPRAGmeLOST. CALI AND FRAGT. SUCCESSFUL. CALL 

AS REAL VARIABLES 

C.BD.COUNTER AND P.BD.COUNTER AS INTEGER VARIABLES 
PATH.CONNECT AS A 2-DIMENSIONAL INTEGER | ARRAY 
ORG.NODE AND DEST.NODE AS INTEGER VARIABLES 
SUM.DURATION AND CALL.DURATION AS REAL VARTABLES 
BREAKTIME AS A TABLE 

NLINK.FOR.NODE AS A 1-DIMENSIONAL INTEGER ARRAY 
DELAY.SUM AND AVG.DURATION AS REAL VARIABLES 
OFFERED. TRAFFIC AS A REAL VARIABLE 
MAX.ATTEMPT AS AN INTEGER VARIABLE 

ALPHA AS AN INTEGER VARIABLE 

BEGIN.DIJK AS A REAL VARIABLE 

PARTIAL. BREAKDOWN TO MEAN 3 

FULL.BREAKDOWN TO MEAN 4 

DYNAMIC.ALGORITHM AS AN INTEGER VARIABLE 
CLEAN AS 1-DIMENSIONAL INTEGER ARRAY 
TOT.DIJK.CALLED AS AN INTEGER VARIABLE 
NSLOT.AVAIL.1 AS AN INTEGER VARIABLE 


'" PREAMBLE 


BEG EGSGwwEGEaGBwvER ES Gw EERE RE Gw RUE RE RES GwwwEEESESSEEE 


LET LINE.V_= 80 
START NEW PAGE 


Ee LNT 


LINES AS FOLLOWS 


Pee OBJECTIVE OF THIS SIMULATION IS TO DETERMINE 


Pee GPFECTIVENESS OF THE P 


ROPOSED DISTANCE FUNCTION 


AND THE PROPOSED TIME SLOT ASSIGNMENT ALGORITHM. 


SKIP 2 
'' THE 


vow 
' 
J YU 


SUTPUT LIENES 
MAIN PROGRAM CALLS THE FRESH.INPUT ROUTINE THAT 


SETS THE INPUT PARAMETERS AND INTIALIZATION VARIABLES 
FOR SIMULATION 


PEEP RNT. Seen = Q 


EEE FAIR.POINT 


1 
- 00000000 





PEGS TIME.V = 

PERFORM FRESH. INPUT 

RESERVE srctutg * sy ASN BY 12 BY 4 
RESERVE SPEC NFO ,*) AS N BY N BY 12 
RELEASE SEED.V 

RESERVE SEED.V AS 10 

LET SEED.V(1) = 2116429302 


JILL 


LET SEED.V(2) = 683743814 
LET SEED.V(3) = 964393174 
LET SEED.V(4) = 1217426631 
LET SEED.V(5) = 618433579 
LET SEED.V(6) = 1157240309 
LET SEED.V(7) = 15726055 
LET SEED.V(8) = 48108509 
LET SEED.V(9)_ = 1797920909 
LET SEED.V(10) = 477424540 


INFO(NODE,SLOT,INDEX) = INTEGER VALUE 


NODE DENOTES NODE NUMBER 
SLOT Cee SCOT NUS. 
Xx EME 


INDEX = QO SLOT 

INDEX = 1 TRANSMIT" OLOT WITH CIRCUIT NUMBER 
INDEX = 2 RECEIVE S SLOT FOR RETURN GSC NAae 
INDEX = 3 CALLED OR CALLING NODE NUMBER 

INDEX = 4 NUMBER OF RECEIVE SIGNALS 


T BEGIN DIJK y= Z00R00 

DYNAMIC.ALGORITHM EQ 1 

PERFORM Dean INITIALIZATION 

ne re a DULE DIJK.MANIPULATION AT BEGIN.DIJK 


SCHEDULE A NEW.CALL AT 
EXPONENTIAL. F(MEAN.SYS.CALL.ARRIV 2) 
SCHEDULE A HALT.SIMULATION AT TEST. DURATION 


START SIMULATION 
SKIP -Z OULU GtiiEs 


PRINT |l LINE AS FOLLOWS 
END OF SIMULATION 


R4rt sw ete 


BEG RwGRRaGGRwG GRU R Ra GER GGG RRa GEE Ga GER REGRGERaERUEES 
UEINE POR PRESH NEG 


SAME ROUTINE AS IN APPENDIX F 


RGR GGG R aaa RG aaa GREG GGG GRRE GEG ERGGaEREGGEERRREES 
UTINE FOR DISTANCE. INITIALIZATION 


THE DIJKSTRA ARRAY HOLDS A REAL POSITIVE NUMBER 
INDICATING THE TOTAL OVERALL LINK Bee FROM 
EACH NODE TO EVERY OTHER NODE IN THE TWORK . 
INITIALLY, IF A DIRECT DINKSE Te BETWEEN TWO NODES 
WE SHALL ASSIGN A VALUE OF 1.0 AND IF A DIRECT LINK 
DOES NOT EXIST, WE SHALL ASSIGN A VALUE CEROUG ey 
THE VALUES IN THIS ARRAY WILL CHANGE DURING THE 
SIMULATION AS INIDIVIDUAL LINK WEIGHTS CHANGE TO 
REFLECT VARYING DEGREES OF LINK, NODE AND 

NETWORK LOADING. 


> oi en 2 ee 


lle 


RESERVE DIJKSTRA oe AS N BY N 
RESERVE DISTANCE N 


FOR I = 1 TON, DO 
FOR J = 1 TOWN, D 
ieeO J 


O 
BEL DEJIKSTRA(I,J 
me DISTANCE(IL, a 
LWAYS 


meet NE J 
LET Sa tee 33 
EET DISTANCE(IL,J 
ALWAYS 


IF Beane rte 
tT 


Wel 
CoM 
Oo 
OO 


LET DIJKSTRA 
LET DISTANCE 
ALWAYS 
LOOP 


L9OP 
, 
' 


<I 
3} 


PRENT ONE OF THESE ARRAYS TO ENSURE THEY WERE 
eee UP PROPERLY. 


PRINT 4 LINES AS FOLLOWS 
meee CONTENTS OF THE INITIAL 2 a MATRIX ARE: 


+TO + il D 3 5 6 7 
FM + ------ +------------------ - -- ee ee ee ee ee ee ee ee ee ee ee He He He He - - e 
FO =e st DO 
PRINT 1 LINE WITH I, DISTANCE I, i) a Dicmanee ne: 
DISTANCE(1,3),DISTANCE 7 DISTANCE(I,5), 
DISTANCE(1.6). DISTANC = 7 
t ? ? t AS -FOL OWS ? ? 1} ? 
cies Se escocre) ws Sees 3S SS 7S% SUSI OTE WOU Mewes oe evevevs 
LOOP 


eee | OUTPUT LINE 

PRINT 5 LINES AS FOLLOWS 

eG. OF ae ets ee ae 
+ 


+ 
FM + ------- < ----- - ee ee ee er ee ee ee ee ee ee ee ee ee ee ee ee eee 
FOR I = 1 TO 
PRINT 1 LINE Nee I, DISTANCE I,8) DISTANCE(T,9), 
i _DESTANGE(T, 10} , DISTANCE T,11) AS FOLLOWS 
LOOP 


.SKIP 2 OUTPUT LINES 


ETURN 
ND '' DISTANCE INITIALIZATION 


R 
' 
7 PPPPPPOPSS SSS SSSSsSSsSSsSSSssSssssssssssssssssssssssssssss 
EVENT DIJK.MANIPULATION SAVING THE EVENT NOTICE 

D 


FINE DIST AS A REAL VARIABLE 


i 


eet DIJK.CALLED = TOT.DIJK.CALLED + 1 


i 

iS 

PRINT 1 LINE WITH TOT.DIJK CALLED AND TIME.V AS FOLLOWS 
*ee TH ROUTING MANIPULATION INVOKED AT * “* SECONDS 
KIP 1 OUTPUT LINE 


GET THE CURRENT LINK "WEIGHTS" OR "DISTANCE" 
AT EVERY NODE AND ON ALL LINKS 
OF THE NETWORK 


=a = = «= =Uf) > 


rs 


PERFORM COMPUTE. CURRENT. DISTANCES 
SERVE PATH.CONNECT(*,*) AS N BY N 


USE THE CURRENT NODE AND LINK WEIGHT Ne IN THE 
IMPLEMENTATION OF THE DIJKSTRA ALGORITHM 


START BY INITIALIZING THE DIJKSTRA ARRAYS: 


IF THERE IS NO LINK WHICH DIRECTLY CONNECTS TWO NODES, 
THEN THE LINK WEIGHT IS SET EQUAL TO 9999.0 


WE ALSO READ A COPY OF THE PATH.CONNECT ARRAY 
WHICH WILL BE USED DURING THE DIJK.MANIPULATION EVENT 


FOR I = 1 TO N, DO 
FOR i= kt TO N. 2 pe 


IF I EQ 
LET DIJKSTRA J = 9999. 0 
LET BEST. PAT (i ys 

tiayee CONNECT ( ie 


ina 
LEE DIJKSTRA(T Je 890. 00 
LET BEST. PAT (i ae 
LET PATH. CONNECT ( ye 
ALWAYS 


IF rE pegRSTRR Ct a) 303 
LEL Digs RAC 2) Ce J 


LET BEST. PAT iG: Me 
LET PATH. CONN itl ae 
ALWAYS 
LOOP 
LOOP 


LET MANIP.COUNTER = 0O 
LET PASS.COUNTER = 0 


'MORE. RUN’ 


LET AGAIN.FLAG = 0 
De NIE COUNTER = PASS.COUNTER + 1 
FOR ROW = 1 TO N 
FOR COL, = ol ~20 N, DO 
IF ROW EQ CO 
Eo) TO EXT “COL 


LSE 
FOR TCOL = = an NN. DO 
Treo aera 
ae TO NEXT. TCOL 


EL 

EE, TCCL EC Veer 
GOTO NEXT. 7ee 
LSE 


LET Dict 00 
1/9 LINRCONNECT (ROW TCOL) EQ il 
LET DIST TRA (ROW, TCOL) 
IF PATH.CONNECT TCOL COL) EQ’ 1 
LET DIST\= DIS? = pilus RA (TCOL , COL) 
TF BES rh PER ROR OBEY ob on 
BPEDORES teen £81 ids SBEST. PATH(ROW, TCOL) 
LEI PATH. CO CONN CH ROW On n= 1 
LET MANIP. EOONTER: = MANIP.COUNTER + 1 
ALWAYS 
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ALWAYS 
ALWAYS 


SNEXT.TCOL' 


IF AGAIN. FLAG a il 
GO TO MORE.RU 
WAYS 


’ 
PRINT THE MANIPULATED DIJKSTRA AND BEST.PATH MATRICES 


MeeEATHPRNI EQ 1 
Bri NT eee WITH PASS.COUNTER AND MANIP.COUNTER 


OWS 
Be 7 EAS THE DIJKSTRA ARRAY ***** TIMES AND PERFORMS 
A TOT OF *** MANIPULATIONS FOR BEST PATH ASSIGNMENTS 
SKIP i OULEUT Link 


PRINT 4 LINES AS FOLLOWS 
THE CONTENTS OF THE MANIPULATED DIJKSTRA MATRIX ARE: 
#LO + Ih 2 3 a ) 6 / 


FM + ------ +------------ --- - ee ee ee ee ee eee ee ee ee ee ee ee ee eee ee 
FOR IL 1 TO DO 
PRINT 1 LINE WITH L. DISKS West Tt, 1 PIZkSTRM Ts eae 
DisKSTRA(CT,3), DIJIKSTRA(L,4 ’DIIJIKSTRA >): 
DIJKSTRA iG) AND DIIKGIRA( 1.7) AS RAL OP 


~ ery alo ale ato ales alo ale aloa ® Pr alaalaatoals ate ale a! oe atantc Me al ale ale ale 
ee au 7h ri? ¢e oe ae ¢e Oe eB ee ee 7% Fe FB ct fe ae au Fh ee 


i eriy als ee ae eh a8 7 oN ae Oe ak en rar) rl ara 
s e 


LOOP 
SKIP 1 OUTPUT LINE 

PRINT 5 LINES AS FOLLOWS 

CONTENTS OF THE MANIPULATED DIJKSTRA MATRIX (CONT. ) 

+ + TO + 8 9 10 ik 
FM + -------- fe ----- - - - ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee 
feoret = 1 TO 

PRINT I LINE WITH. I Bg FOLLONS 8), DiIniksiMReA(E. 9), DPIKSTRAY 1,10), 
TJKS TRACE, iT} AS FOLLO 


ala atone s": s‘s ate 
oe ¢% F% ee 


ee a8 D 


LOOP 
SKIP 2 OUTPUT LINES 


PRINT 5 LINES AS FOLLOWS 
THE CONTENTS OF THE MANIPULATED BEST.PATH MATRIX ARE: 
=~ 0) nb 2 3 a 5 6 i 8 @) Ge, Wem 


+ FM $$ ------ +------------ -- ee ee eee Kee Ke ee eee ee ee ee ee ee ee eee 
FOR I = 1 TO N, DO 
PRINT 1 LINE WITH I, BEST.PATH(I 1), BEST. PATH(I 3) 
BEST. PATH(L,4), BEST.PATH(1,5), BEST. oul 8), 
BEST.PATH(1.7). BEST. PATH(1,8); BEST. PATH(I1.9 
BEST. PATH(I.1 ), BEST. PATH(1, 11) 
. _. AS FOLLOWS ares 
ze ot + Pheri rierid tae ta AR SS vee ees OS bi te rier \ 
LOOP 
SKIP 2 OUTPUT LINES 
ALWAYS 
SCHEDULE A DIJK.MANIPULATION AT TIME.V + UP.DATE. PERIOD 
RETURN 


END '' DIJK.MANIPULATION 


1 i | 


Mh kes. 


t f 


SSS SS SS SSS SO SS SS SSS SSS SSS SSS SSS SSS SSS SS SSS SS 99 9$$$ 
ROUTINE TO COMPUTE.CURRENT. DISTANCES 


! | SAME ROUTINE AS IN APPENDIX F 
POSS SSS SS SS SS SS SS SS SSS SS SS SSS SSS SS SS SSS SSS SSS SS ssSssss 
QUTINE FOR COMBINATION GIVEN TOP AND BOTTOM YIELDING ANS 


| SAME ROUTINE AS IN APPENDIX F 





SSSS$SSSSSSSSSS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS$$SSSSSS 
ROUTINE FOR FACTORIAL GIVEN IVALUE YIELDING FAC. VALUE 


| SAME ROUTINE AS IN APPENDIX F 


MARAIADALDADARAADGAADALAAARAAAAASO NS 
ENT NEW.CALL SAVING THE EVENT NOTICE 


Y 

SAME event AS IN APPENDIX F 

RR www &w&GwGR&wwRwwGR&RwGRRRKKBRRRR RRR RRR RSSREESE 
VENT TO.DEST.BREAKDOWN GIVEN BDTODEST 

| SAME EVENT AS IN APPENDIX F 

ay 


Gk GR ww GRR waa Ra aay R Raa R RR aK RRR a SERRE SERRE BEGEEEE 
ENT TO.ORG.BREAKDOWN GIVEN BDTOORG 


t 
t 
t 
' 
t 
? 
t 
' 
' 
f 
i 
k 
i 
? 
? 
t 
t 
i 
t 
i 
t 
R 
f 
t 
t 
' 
t 
i] 
' 
t 
? 
° 
t 
? 
? 
t 
' 
' 
' 
’ 
' 
' 
. 
’ 
t 
t 
t 
’ 
? 
t 
’ 
' 
E 


? 


| SAME EVENT AS IN APPENDIX F 


~~ =» =s> -@> «8 


Ts 


CR RRR LRN LeeLee Le Le Le Me Le Lee Ree Le Re Re Le Re Le Re Le Le Re Le Re Re Re Le Ro Ne Me Le BoM MM Me Me Ml 
UTINE FOR VIRTUAL.CKT GIVEN ESTABLISH.MSG 


SAME ROUTINE AS IN APPENDIX F 


Bk GR Rw aa RRw aa E Raa RRw Ewa RRw aR waGRRwa EERE EERESEESE 


K 
ROUTINE FOR STATS.AT.END.BREAK.DOWN GIVEN B.D.MESSAGE 


SAME ROUTINE AS IN APPENDIX F 


FOSS SSS SS SSS SS OSS SSS SSS SSS SSS SS SSS SS SSS SSS SSsSsssssss 
EVENT HALT.SIMULATION SAVING THE EVENT NOTICE 


' 
' 
+ 
' 
' 
' 
' 
t 
' 
' 
' 
' 
' 
9 
' 
' 
f 
i] 
' 
' 
t 
' 
' 
1 


SAME EVENT AS IN APPENDIX F 


' 
' 
' 
' 
t 
' 
’ 
' 
' 


LCC Ce CeCe CeCe Le Re LCR eC LR Re Ce Re Re Le Re Le RC Le Le ee Ce Ce Le Le Le Le Re Re Le Ree Ck Re LLC Lene RRL 
ROUTINE FOR TERMINATION | 


FOR EACH NEW.CALL IN EV.S(I.NEW.CALL), DO 
CANCEL THE NEW.CALL 
ae THE NEW.CALL 


' 


Rene hACH REQUEST.FOR.SVC IN EV.S(L.REQUEST.FOR.SVC), DO 
CANCEL THE REQUEST.FOR.SVC 
PeetROY THE REQUEST.FOR.SVC 
LOOP 
FOR EACH RESPONSE.TO.REQUEST 
IN EV.S(1I.RESPONSE.TO.R ee DO 
CANCEL THE SOO oe To neon i 
Lea tae heer ONSE.TO.REQUEST 


FOR EACH TO.DEST. BREAKDOWN 

IN EV.S(1L.TO.DEST. BREAKDOWN DO 
CANCEL THE TO.DEST.BREAKDOWN 

oo THE TO.DEST.BREAKDOWN 


FOR EACH TO.ORG.BREAKDOWN 

IN EV .S (1,10 ORG. BREAKDOWN ) DO 
CANCEL THE TO.ORG. BREAKDOWN 
DESTROY THE TO.ORG. BREAKDOWN 

LOOP 

FOR EACH DIJK.MANIPULATION 

IN EV.S(I.DLJK.MANIPULATION), DO 


Li? 


CANCEL THE DIJK.MANIPULATION 
act Sa THE DIJK.MANIPULATION 


ria 


FOR EACH HALT.SIMULATION IN EV.S(1.HALT. SIMULATION) Rape 
CANCEL THE HALT.SIMULATION 
A esis THE HALT.SIMULATION 


tee 


RETURN 
END '' TERMINATION 


//GO.SYSIN DD * 
SAME LINK MATRIX AS IN APPENDIX F 
as 
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APPENDIX F 


SIMULATION PROGRAM FOR EVALUATING YEN ROUTING CONDITIONS 


//YEN152 JOB (3060, 9203), /RICHNET. CEASS=J 

//*MAIN ORG=NPGVM1. 3060P,SYSTEM=SY1,LINES=(25 

// EXEC SIM25CLG,REGION: GO=4096K, PARM.GO= "MAP ,SIZE=760K' 
{/SIM.SYSIN DD * 

PREAMBLE 

NORMALLY MODE IS INTEGER 


GENERATE LIST ROUTINES 


TEMPORARY ENTITIES 
By ERY ORES = HAS A 


tf 


A owAniee tT IME 
A RECSLOT, A "DIRECTION, 


CKT.NUMBER, A TYPE, AN ORIGINATOR, 
ESTINATION, A FM.NODE. A TO.NODE 

"A SLOT.ARRIVAL, A SLOT.ASSIGN, 

A SRATERMET 


,DEFINE START.TIME AS A REAL VARIABLE 


’ 


EVENT Lane Oe INCLUDE REQUEST. Aes SVC ,RESPONSE.TO.RE 


UEST. 
N 


DEST.BREAKDOWN, TO.ORG.BREAKDOWN, SLOT.FOR. 


NSLOT.FOR.YEN, NEW.CALL, TEN EP OUT ANG AND HALT .SIMULATION 


’ 


EVERY RE 
EVERY RE 
EVERY TO.DEST.BREAKD 
EVERY TO.ORG.BREAKDOWN HAS A BDTOORG 


' f 
'? 


URSIePOR:- SVG HAS A MSGl 
PONSE.TO.REQUEST HAS A MSG2 
WN HAS A_ BDTODEST 


EeEORITY ORDER LS Pane CALL, TO.DEST.BREAKDOWN 


yf 
v U 


DEFINE 
DEFINE 
DEFINE 
DEFINE 
ber iNeE 
DEF INE 
Per iNE 
DEE INE 
DEFINE 
DEFINE 
DEFINE 


DEFINE UP 


DEFINE 
DEFINE 


DEFINE 
DEFINE 
DEFINE 


DEFINE N. 


DEFINE 


DRCe - BREAKDOWN , SLOT. FOR. YEN, 
NSLOT. 
REQUEST. RoR este, RESPONSE. TO. REQUEST, 
ROUTING AND’ HALT.SIMULATION 


INFO AS A 3-DIMENSIONAL INTEGER ARRAY 
SPECINFO AS A 3-DIMENSIONAL INTEGER ARRAY 
SLOTS.PER.FRAME AS A 1-DIMENSIONAL INTEGER ARRAY 
ATTENUATION AS A 2-DIMENSIONAL INTEGER ARRAY 
LINKCONNECT AS A 2-DIMENSIONAL INTEGER ARRAY 
MEANY.GIVEN AS A 1-DIMENSIONAL REAL ARRAY 
PROBY.GIVEN AS A 1-DIMENSIONAL REAL ARRAY 
SLOT.DEPTH AND N AS INTEGER VARIABLES 

YEN AND DISTANCE AS 2-DIMENSIONAL REAL ARRAYS 
CLOCK AS A 2-DIMENSIONAL REAL ARRAY 
LINK.ATTENU AS A 2-DIMENSIONAL REAL ARRAY 
.DATE.PERIOD AS A REAL VARIABLE 

YENSLOT AS AN INTEGER VARIABLE 

HOP.GREATEST, HOP.SUM AND HOP.AVG 

AS REAL VARIABLES— 

C.LEVEL AS A 2-DIMENSIONAL REAL ARRAY 
AVAILCHANNEL AS A 2-DIMENSIONAL REAL ARRAY 
ROLsHOe GREATEST AS A REAL VARTABLE 

LINKS AND MAX.LINKS.PER.NODE 

AS INTEGER VARIABLES 

CALLED.NODE AND CALLING.NODE AS INTEGER VARIABLES 


1ih9 


DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 


LINKS AND LINK.NODE.RATIO AS REAL VARIABLES 
NODETRAFFIC AS A REAL VARIABLE 

EST.PATH AS A 2-DIMENSIONAL INTEGER ARRAY 
PERNY AS A 2-DIMENSIONAL REAL ARRAY 
PRNT.COUNTER AS AN INTEGER VARIABLE 
PATHPRNT AS AN INTEGER VARIABLE 
CKT.ESTAB, CKT.FAILED, CKT.SUM AND CKT.DISESTAB 
AS INTEGER VARIABLES 


DEFINE BK.TO.DEST AND BK.TO.ORG AS INTEGER VARIABLES 
DEFINE PRNT AS AN INTEGER VARIABLE 
DEFINE TEST .DURATION, SLOT.DURATION, MEAN.SYS.CALL ARRIVe 


DEE INGE 
DEFINE 


DEFINE 
DEFINE 
DEFINE 


DEFINE 
DEFINE 


DEFINE 
DEFINE 


AND MEAN.CALL.DURATION AS REAL VARIABLES 


FATR. POINTER AS AN INTEGER VARIABLE 

LONG. TIME. EST, iS. LONG. D, AVGJO2E Ds 
LONG. a BD AND AVG. TIME. EST AS REAL VARIABLES 
CKT.LONG.TIME.EST AS INTEGER VARIABLE 
MAX.CKT AS AN INTEGER” VARTABLE 

SUM.BD.TIME, AVG.BD.TIME, TOT.P.BD AND TOT.C.BD 
AS REAL VARIABLES 

CKTS.BD AS AN INTEGER VARIABLE 

FRACT.LOST.CALL AND FRAGT, SUCGESSEUIMG ET 
AS REAL VARIABLES 

C.BD.COUNTER AND P.BD.COUNTER AS INTEGER VARIABLES 
UPDATELIST AS A 2-DIMENSIONAL INTEGER ARRAY 
ORG.NODE AND DEST.NODE AS INTEGER VARIABLES 
SUM.DURATION AND CALL.DURATION AS REAL VARIABLES 
BREAKTIME AS A REAL VARIABLE 

NLINK.FOR.NODE AS A 1L-DIMENSIONAL INTEGER ARRAY 
DELAY.SUM AND AVG.DURATION AS REAL VARIABLES 
OFFERED.TRAFFIC AS A REAL VARIABLE 
MAX.ATTEMPT AS AN INTEGER VARIABLE 

LPHA INTEGER VARIABLE 
A REAL VARIABLE 
PARTIAL.BREAKDOWN TO MEAN 3 
FULL.BREAKDOWN TO MEAN 4 
DYNAMIC.ALGORITHM AS AN INTEGER VARIABLE 
AN AS L-DIMENSIONAL INTEGER ARRAY 
TOT. YEN.CALLED AS AN INTEGER VARIABLE 
NSLOT.AVAIL.I AS AN INTEGER VARIABLE 


'" PREAMBLE 


BE GR ww RRw GRRE wR wR GRRw RRR R REG RERwEERaaEEREEEEE 


MAIN 
LET LINE.V = 80 
PRINT 3 LINES AS FOLLOWS 


THE OBJECTIVE OF THIS 
BEHAVIO 


SIMULATION IS TO EVALUATE THE 
R_ OF THE PROPOSED PACKET RADIO NETWORK USING 


YEN ROUTING 


SOE 2 


OUTPUT LINES 


'' THE MAIN PROGRAM CALLS THE FRESH.INPUT ROUTINE THAT 
'' SETS THE PARAMETERS FOR SIMULATION 

LET PRNT.COUNTER = 0 

LET FAIR.POINTER = 1 

LET TIME.V = 0.000000000 

PERFORM FRESH. INPUT 

RESERVE INFO (* ae Ag N BY 12 BY 4 

RESERVE SPEC NEot? *) AS N BY N BY 12 
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RELEASE SEED.V(* 

RESERVE SEED.V(*) AS 10 
LET SEED.V(1) = 2116429302 
LET SEED.V(2) = 683743814 
LET SEED.V(3) = 964393174 
met SEED.V(4) = 1217426631 
LET SEED.V(5) = 618433579 
LET SEED.V(6) = 1157240309 
Mer SEED.V(/7) = 15726055 
LET SEED.V(8) = 48108509 
LET SEED .V 424 = 1797920909 
LET SEED.V(10) = 477424540 

INFO(NODE,SLOT,INDEX) = INTEGER VALUE 


NODE DENOTES NODE NUMBER 
SLOT DENOTES SLOT NUMBER 
FOR POSITIVE INTEGER VALUE 
INDEX il 


= TRANS a SLOT WITH CIRCUIT NUMBER 
INDEX = 2 : RECEIVE" SLOT FOR RETURN SIGNAL 
INDEX = 3 : CALLED OR CALLING NODE NUMBER 
INDEX = 4&4 : TOTAL NUMBER OF RECEIVE SIGNALS 


A PARITICULAR SLOT IS EMPTY IF ITS INTEGER VALUE 
ZS ZERO (NON-TRANSMIT SLOT AND NON-RECEIVE SLOT) 


T BEGIN.YEN = 200.00 

DYNAMIC.ALGORITHM EQ 1 

PERFORM DISTANCE.INITIALIZATION 

SCHEDULE A SLOT.FOR.YEN AT BEGIN. YEN 
ual A YEN.ROUTING AT BEGIN.YEN + SLOT. DURATION 


SCHEDULE A NEW.CALL 
AT EXPONENTIAL. F(MEAN.SYS.CALL.ARRIV 2) 
SCHEDULE A HALT.SIMULATION AT TEST . DURATION 


tf 


START SIMULATION 

Seer 2 OUTPUT LINES 

PRINT 1 LINE AS FOLLOWS 

THE PROGRAM HAS COME TO THE END OF THE SIMULATION 


STOP 
D 


BRU B UU UGG GGY GGG KREG UU REG Gk EEE RR EERE EEE GEER EEEEEES 
WaINE FOR FRESH. INPUT 


THIS ROUTINE INITIALIZES ALL PARAMETERS FOR 
THE SIMULATION 


LET PRNT = 2 
LET PATHPRNT = 0 


-~- «= J - - - =< [7] 


-“-- “<Q - -- - = 


' PRNT HELPS IN DEBUGGING THE SOFTWARE AND PROGRAM LOGIC 


’ 

' Q == ANNOUNCES EACH PROCESS 
' 1 == SELECTIVE PRINTING 

' INPUT DATA 


dyad 


LET DYNAMIC.ALGORITHM = 1 

LET OFFERED.TRAFFIC = 2.00 

Ee Or SPREE PERLOD -S ie 
VEReohor lgdbis: 2 

EM MEAN | CALL. -DURATION = 20.00 


N 

LET TEST.DURATION= 800.00 
LET SLOT.DURATION= 0.000010417 
DED MA ke CK iano 
LET MAX.ATTEMPT = 8 - OFFERED.TRAFFIC 
IF MAX.ATTEMPT LT 

LET MAX.ATTEMPT = 4 
ALWAYS 


'f 


|| INITIALIZATION 

LET CKT.DISESTAB = 0 
CKT.SUM 0 

LET CKT.ESTAB 


QO 
LET FRACT. SUCCESSFUL. CALL = 0.0 
LET FRACT.LOST.CALL 0.0 


Ht {Co 


SLOT . DURATION 


LET AVG.P. - 


Ge be 
eal es) 
ee lee 
Ce 
Oo< 
ZzGdC 
G2G2- 

Or 

CG) 
Wo 

wo) 
T 

Te 


wie 
LET CKT.LONG.TIM 
LET AVG.BD.TIME 
LET SUM.BD.TIME 
CKTS.BD = O 


LET P.BD.COUNTER 
LET C.BD.COUNTER 
TOT.P.BD = O. 


ee oe oe 
71010 
rrr 
re 
© 
rl 
Ke 
(Fl- - 
HaWo 
Ce 
©) 
> 
tc 
Oe 
es] 
woo!" 
1 
© 


Ta 


RESERVE Ee ots “prs AS 
RESERVE BEST. 
RESERVE NLINK. FOR. (NOD (% 5 AS 


* f 


POR Mia = es lOeie an 
FOR J = 1 TON, 
eee LINKCONNECT (I, J) 


OLN, ee 
O 


i 
Lr DO 
EST. PATH(T, J) 


J 
READ B 
OP 


PRINT 4 LINES AS FOLLOWS 


THE CONTENTS OF THE INITIAL BEST-PATH MATRi Sr: 
+O cS 2 3 4 =) 6 7 8 ? 10 


E22 


an 


HORT = 1950 N. DO 
PRINT 1 LINE WITH I, BEST.PATH(I 1) BEST. PATH(I 2) 
EST. PATH(1,3), BEST.PATH(1,4), BEST. PAT e }; 
BEST.PATH(1,6). BEST.PATH(L,7). BEST.PATH(1,8 
BEST. PATH(1,9), BEST. PATH tI } AND 
BEST. PATH T,11} AS_ FOLLOWS 





ate ale 
fe ae 


eS fe BROS Ede oad ale ale ats ate Ct iad 
& 4% se ou ae @ 


LOOP 
Soeir 2 OUTPUT LINES 


LET LINKS = 0.0 
FOR = 1 TON, D0 


R J = O 
IF LINKCONNECT (I,J EQ, i 
LET LINKS = LINK 


LOOP 
LOOP 


LET N.LINKS = LINKS / 2.0 
LET LINK.NODE.RATIO = REAL.F(N.LINKS) / REAL.F(N) 


PRINT 2 LINE WITH LINKS AND LINK.NODE. RATIO AS FOLLOWS 
TOTAL NUMBER OF LINKS IN THE | ET BORS IS *%: 

NUMBER OF LINKS PER NODE IS 

ecee 2 OUTPUT LINE 


LET NODETRAFFIC = OFFERED.TRAFFIC * LINK.NODE.RATIO 
LET MEAN.SYS.CALL.ARRIV = MEAN.CALL.DURATION/NODETRAFFIC 


LET MAX.LINKS.PER.NODE = 0 


HOR) = | TO N, DO 
LET COUNT = oF 


ROR J = 1 TO 
IF LINKCONNECH(T. J) EQ 1 
LET COUNT = 
ALWAYS 
LOOP 
IF COUNT GT MAX.LINKS.PER.NODE 
LET MAX.LINKS.PER.NODE = COUNT 


ALWAYS 
LET NLINK.FOR.NODE(L) = COUNT 
LOOP 


RESERVE ATTENUATION(*,*) AS N BY 
RESERVE LINK.ATTENU(*, * 


FOR I = l ena DO 


FOR J=1T 
LF LINKCONNECT (I J) EQ 1 
LET PPP RANDI.F(1,80,7) 
LET ATTENUATION(L,3) = PPP’ + 60.0 
LET LINK.ATTENU(1L,J) = REAL.F(PPP) 
ALWAYS 
IF LINKCONNECT(I,J) EQ 0 
pet LINK.ATTENU(I,J) = 140.00 
LWAYS 


’ 


BRON T + LINES WITH TEST.DURATION, SLOT.DURATION 
MEAN. SYS CALL. ARRIV AND MEAN.CALL. DURATION 


SIMULATION WILL RUN FOR ****,** SECS 
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DURATION OF A TIME SLOT IS * a eee 

MEAN GENERATION TIME FOR NEW CALL IS ****.** SECS 

MEAN DURATION TIME FOR VIRTUAL CIRCUIT IS ****.** SECS 
SKIP 1 OUTPUT LINES 


' 7 


RETURN 
END °° FRESH. INPUT 


LLL LCL E CCRC T TT TTT T LLM Ke oe Ke Le Ke Le Le fe Le Le Le Le Le Le ne fe Le ee ee Ce Lek eee Te 
UTINE FOR DISTANCE. INITIALIZATION 


THE YEN ARRAY HOLDS A REAL POSITIVE NUMBER INDICATING 
THE LINK DISTANCE FOR PAIR OF NODES 

INITIALLY, IF A DIRECT LINK EXISTS BETWEEN TWO NODES 
WE SHALL ASSIGN A VALUE OF 1.0 AND IF A DIRECT LINK 
DOES NOT EXIST, WE SHALL ASSIGN A VALUE OF 9999.0 

THE VALUES IN THIS ARRAY WILL CHANGE DURING THE 
SIMULATION AS INIDIVIDUAL LINK WEIGHTS CHANGE TO 
REFLECT CURRENT STATUS OF LINK AND NODE. 


THE DISTANCE ARRAY HOLDS A REAL NON-NEGATIVE NUMBER 
REPRESENTING THE DISTANCE FROM A NODE TO ANOTHER NODE 


RESERVE YEN * aoe ‘ N 
RESERVE CL we AS BY N 
RESERVE DISTA CES, as X AS BY N 


FOR I = 1 TON, DO 
FOR J = L TO N, DO 
ie) 1. 9 


LET Choe cK (1 J) = 999 
LET DISTANCE(T1, 

LET YEN(1,J) = 
ALWAYS 


Fol NES 
tral ea Naae: = Ie a 


~~ 2 mee te te RJ ee 
~-—~~ ~~ ~ ww ww ww wa eC) ~ ~~ ~ ~ 


ALWAYS 


IF LINKCONNECT 

LEP CLOCK (le 
ctetd, 
I,J) = 


MOO 
1.90P 
"' PRINT ONE OF THESE ARRAYS TO ENSURE 
i THE DISTANCE MATRIX WAS SET UP PROPERLY 


PRINT 4 LINES AS FOLLOWS 
ae ce OF HE ee a a ee a 


la te ee ee ee cre ee ee ee ee ce ee ee 
— wee 


HOR = Io T@ uN wae 
PRINT 1 LINE WITH I, DISTANCE(I,1), Dr ST ANeaes 2). 
DISTANCE(1L,3), DISTANCE(1.4 Pe 5) 
DISTANCE i 6 AND DISTANCE(1,7) 


124 


alo ale ale ale ale ate ate ale ale alec ale ate ales ale ale ale ale ale ale ate ale ale ale ate wloale ale aloutec atoats als ale ale ale alec ale 
Te Fe + Fe 9% FH ID ee Gee ee 7% ee fe Fe fe F% we em @e Fe FB ew fe #% FB FB ae fe 7 Fe FB we oe ¢e 7% % ¢ 
° ° e e 


LOOP 

SKIP 1 OUTPUT LINE 

PRINT 4 LINES AS FOLLOWS 

CONTENTS OF THE INITIAL DISTANCE MATRIX (CONT. ) 
al = = 


FOR I = 1 TON, DO 
PRINT 1 LINE WITH I, DISTANCE(I 4 DISTANCE(I 2) 
DISTANCE(T,10} AND DISTANCE({,11) AS FOLLOWS 


awe 


LOOP 
fostP 2 OUTPUT LINES 


RETURN 
END "" DISTANCE INITIALIZATION 


GRRE RRw RGR RG GGG Rw R RRR RRR R GEG RGR GRR GEEBa SERS SSE 
ENT SLOT.FOR.YEN 
THIS EVENT ALLOCATES SLOTS FOR ROUTING UPDATES 


FINE EFFECTTIME AS A REAL VARIABLE 
T YENSLOT = lL 


YENSLOT = 1 MEANS WE HAVE ALLOCATED SLOTS FOR ROUTING 
MESSAGES 


FOR NODEX = 1 TO 11, DO 
FOR NODER = 1 TO 1l, DO 

BOR ISLOT = 1 TO 12, DO 
IF RPSGB dateE: Fg Q AND 


INFOCNOBER, fSsLol, Er 


0 AND 
INFO(NODER. ISLOT;>4) LE SLOT.DEPTH 
LET IN O(NODEX , ISLOT; 1) =e 
GO TO OLOOP 
LOOP 
TOIOOF ' 
LOOP 


L.90P 

Pete sFFECTTIME = 24.0 * SLOT.DURATION 

SCHEDULE A NSLOT.FOR.YEN AT TIME.V + EFFECTTIME 
SCHEDULE A SLOT.FOR.YEN AT TIME.V + UP.DATE.PERIOD 


RETURN 
END ‘' SLOT.FOR. YEN 


i] 


BE BR ow ww & Go RGR R KREGER R KREG RRRKWRRRRRRRKEK 
VENT NSLOT.FOR. YEN 

'' THIS EVENT REMOVES SLOTS FOR ROUTING UPDATES 

IF YENSLOT EQ 1 


Bet YENSLOT = 0 
.FOR NODEX = 1 TO 11, DO 


- ~[{f] ~ -« -« = =< 


25 


FOR ISLOT = 
IF shave NODEX ve sLot ty EQ. 7 
LET IN O(NODEX,ISLOT,1) = 


* 


LOOP 
ALWAYS 


t ¥ 


RETURN 
END '' NSLOT.FOR.YEN 


+ ? 


"TBR GRR BR GBR BWR GRR SB WEB RG BRs BBR BRSG BASE RRUBRRGRARBRK 
EVENT YEN.ROUTING SAVING THE EVENT NOTICE 
DEFINE MINYEN AS A REAL VARIABLE 


LET TOT.YEN.CALLED = TOT.YEN.CALLED + 1 


we TH ROUTING MANIPULATION INVOKED AT SECONDS 
SKIP 1 OUTPUT siemNis 


GET THE CURRENT LINK DISTANCES OF THE NETWORK 
RFORM COMPUTE .CURRENT.DISTANCES 


THE UPDATELIST ARRAY IS A 2-DIMENSIONAL INTEGER ARRAY 
USED TO RECORD WHICH NEIGHBOR A NODE JUST RECEIVES "K" 
MESSAGE FROM 


G 
ESERVE UPDATELIST(*,*) AS N BY N 


USE THE CURRENT LINK WEIGHT INFORMATION IN THE 
IMPLEMENTATION OF THE YEN ALGORITHM THAT FOLLOWS. 
START BY INITIALIZING THE YEN ARRAY. 

IF THERE IS NO LINK WHICH DIRECTLY CONNECTS TWO NODES, 
THEN THE LINK WEIGHT £S SET EQUAL [TO Uo 


WE ALSO READ A COPY OF THE UPDATELIST ARRAY WHICH WILL 
TBE USED DURING THE YEN.ROUTING EVENT 


SEND A "K" MESSAGE FROM A DESTINATION NODE K AND BEGIN 
TO PERFORM YEN ROUTING 


i 2 es 6 


FOR K = 1 TON, DO 

FOR I = TO N, DO 
FOR II = 1 TO N, DO 
HORM = lor 


l O 
_ BET UPDATELISTI(IT, JJ) = LINKGONNEGT (Clie 


LOOP 
TF LUPP Aree ior x 


ae Ne” 


QQa0d HAKON 


ee oe AL ee | | 
Pirro eae 


perso o—~ 


D 


AND JU NEVE 


LET CLOCK Kt DISTANCE(J1,TI) 
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BET YEN = SOS 
Te BES 


ye Ke) = 
ALWA 
FOR 33 le © 


K) 


IF UPDA ELIST (IL, 52) EQ 1 AND (J2 NE I) 
AND (J2 NE 


LET PDATELT Bye J) 


LET CLOG 

IF CLO CK lave Bb) [an ta 
LET ae Sa (32 

ALWAYS 

FOR J3 


1 
IF UPDATELIST(32~ 53) E 


LET dela uo ye 


3 + DISTANCE(J2,J1) 
\K 
cal 


D (J3 NE K) AND 
i: AND (J3 NE J) 
3 
2 


MhGeCLOGK (J3.K)u = ,K)+DISTANCE(J3,J2) 
THECLOCK 35K °K 

LET YEN(J3.K) = CLO VK) 

WAYS. .PATH(J3,K) 


FOR J4 = 1 

IF UPDATELIST(33, 34 

AND (34 N 
EET PDATELT a 
LET CLOCK ‘a = # 


tF ET Tr VEN(I4’ e} 
LET BES JBAT (J4, one 
ALWAYS 


FOR J5 l 
te UDTELEETL 


Nee Phan 
LET UPDAT ae 


LET CLOCK ( 

IF CLOCK 35 inhi 
(33 
( 


FOR J6 1) 98 
IF UPDATELIST(YS. 
AND J6 jhe 


J6 

J6 NE 3 

J6 NE J2 
LET UPDATELIST 
EE EC LOGK (6 


IF CLOCK(J6 eK) i 
DED YE 


35163 9, 
AND 


ae Lye) to Ed he. 


VEN J3, ,: — J3) 
oXEN 


55) EQ 1 
ND’ (J JL) AN 
$3553) Ne 33) AND (35 NE I) 


+ DISTANCE (J5, J4) 


CLOCK (J, K) 
,K) 


Re 
(35 
NE I) AND 

ND 
tse NE NE v8 AND 


J6 ,J5) = 
K) + DISTANCE J6,J5 
ie den ( ) 


K 
Ve = cL RCI, K) 
(J6.K 


LET BES Jo .k 
ALWAY 
FOR J7 iL. ave) DO 
IF UPDATELIST (36.3 37) EQ 1 AND (J7_ NE J5) 
D (37 NE K) AND (37 NE 1) AND 
E Jl) AND (J7 NE J2 
AND (J7 NE J3 AND J7 NE J4) 
LET U DATELIST Wi, = 
LET CLOCK (J7 
ies + DISTANCE (J7, J6) 
TF (GROGK yy 5k Pa 


LET J 
LET Beet SRA ON ro) = 
ALWAYS 


FOR J8 i 16 
IF UPDATELISTUI7. 
AND (J8 NE K) 


L2H 


OK (7, K) 


738) EQ 1 AND (J8 NE J5) 
AND (J8 NE 1) AND 


ee tik a 
AND (J8 NE J2) AND (J8 NE 32} 
J8 Ae J6 


AND (J8 NE J4) AND | 
LET UPDATELIST(J8 ,J7 
LEGeSlOcK 38 K 
ae + DISTANCE(J8,J7) 
008 CLOCK (18 ER i cEUERt K) 
(38 ee OCK(J8 5K) 
LET BEST.PATH(J8,K) = J7 
ALWAYS 
FOR 39° = Ie LG 
IF UPDATELTST(38, a) eer 1 AND (J9 NE J5) 
AND (J9 NE EK) AN 9 
AND (J9 NM 59 Niet 2 
AND (J9 NE J3) AND (J9 NE J4 
AND (J9 Jé AND (J9 NE J? 
EEE chacK (39 
YE RO + DISTANCE(J9,J8) 
IF Clock 43 38 e+ EN (J9 K ) 
LE we ) = CLOCK (Jon) 
LET BES J3 3k (39 .K) = ae 
LWAYS 
ALWAYS 


i 
te 


LOOP 
LET UPDATELIS@ (Jory) 
ALWAYS 


OOP 
LET UPDATELIST(J7,J6) = 1 
ALWAYS 


Wt 
— 


OOE 
LET UPDATE Ldsii J Gnioe) 
ALWAYS 


Tt 
i 


OOP 
LET UPDATELIS?E 5704) 
es a 


OOP 
LET UPDATELIST(J4,J3) = 
ALWAYS 
LOOP 
LED UPDATELISMCIoeD 
ALWAYS 


OOP 
LET UPDATER TS ki JZ ee) 
WAYS 


P 
LET UPDATELIST( J0en ) 
AYS 


IF PATHPRNT Ee il 

PRINT 4 LINES AS FOLLOWS 

THE on oa OF pee ea lfc oak) YEN ae pose 
+ = 


— = = |B BP sBNsswssswesswssws ssw sw ssw ssw ss ss SF eS ess =F =F ass eS SF 2 a a ew SF ee ee Oe eee ee eee oe ee eee oe ee ee es es oe 
=e = ss es se ew ew ee ee ee ee oe ee ee mmm i 


FOR I = 1 TON, DO 
PRINT 1 LINE WITH I YEN(I 1} YEN ( 2) YEN i 5x 
YEN ( 1,6) A ND alia 


1,4), YEN(I,5),YEN 
FOLLOWS. 0 (rn 


Sis + wires ve weve we siededs wk dedewde ow Pitrisers ris . 

LOOP 

SKIE.L OULEULT Erie 

PRINT 5 LiNESe AS S2OLEeus 

CONTENTS OF THE MANIPULATED YEN MATRIX (CONT. ) 


+ TOF = 8 y, 10 Wal 


se =": s': ate fe 
28 


Ze 


-_— oe eee ei eee eee eee eee 
— =m em am em ame cm ame om so —— oe ee oe ee oem oe oe eee ee eee ee eee ee 


FOR I = 1 TON, DO 
PRINT 1 LINE WITH I YEN(I,8), YEN(I,9), YEN(I,10), 
TEM(GU 30) NS) ISH ONS 0 an 


se 


LOOP 
,SKIP 2 OUTPUT LINES 


PRINT 5 LINES AS FOLLOWS 


a ee oe ___......8... oe... .2 
eeet = 1°TO N, D 
PRINT 1 LINE WITH I ST ,PATH(T,1)., BEST. PATH(I,2), 
BEST. PATH(I,3),BEST. PATH(I 4) 
BEST.PATH(1I,5), BEST. PATH(1,6}, 
BESE PATHIL.7), BEST.PATH(I.8 
BEST.PATH(1.9). BEST. PATH(1,10) AND 
me REST PATH(T, | 1) AS FOLLOWS of ae 
LOOP 
SKIP 2 OUTPUT LINES 
ALWAYS 
SCHEDULE A YEN.ROUTING AT TIME.V + UP.DATE.PERIOD 


RETURN 
END ''’ YEN.ROUTING 


' 


11 PPPSPSSSSSSSSSS$SSSSSSSS$SSSSSSSssSssSssSssssssssssssssssss 
ROUTINE FOR PATH.UPDATE GIVEN K, PREVIOUS AND KTRAVEL 


See) = 1 TON, DO 
IF UPDATELIST( PREVIOUS J) EQ 1 
LET UPDATELIST (J, PREVIOU } = 0 
EET CROGK (Jak) = YEN (BREV OUS ,K) 
+ DISTANCE(J, PREVIOUS ) 
IF CLOCK ( J K) LE YEN(J,K 
BEE EN ( K) ="Gnoekis Rk) 
LET BEST.PATH(J,K) = I 
ALWAYS 
ALWAYS 
LOOP 


RETURN 
END '' PATH.UPDATE 
' f 


PPPPH IHS IS SSS S$SSSSSS$SSS$$ssssssssssssssssssssssssssss 
ROUTINE TO COMPUTE.CURRENT.DISTANCES 


' # 


DEFINE ARG1,ARG2 AND ARG3 AS REAL VARIABLES 
DEFINE MEANY.GIVEN.NODES AS A REAL VARIABLE 
DEFINE SUMMATION AS A REAL VARIABLE 


RESERVE C.LEVEL(*,*) AS N BY N 
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RESERVE AVATLCHANNEL * a3 yA8 AS N BY N 
RESERVE MEANY ae 

RESERVE MEANY GIVEN AS Noo 
RESERVE PROBY.GIVEN ms 12 


FOR I = 1 TON DO. 
OR J = 1 TO N, 


' 7 


LE QURVEL 143} = 9999, 
LET BiSTANG t,J) = 9999.0 
ALWAY 
‘oie 
Les e LEVEL 1.3} = 
LET BiSTANC ys 
ALWAY 
IF LINKCONNECT (2 mc omm 
LET NSLOT.AVAIL.I_= 0 
FOR K = 1 TO 12. DO 
IF INFO ( J 1), ZLE 0 AND INFO(I,K,1) LE 0 
NEOtT 4) EQ 
LED NSLOm (1K! NSLOT. AVAIL.I + 1 
ALWAYS 


' 7 


 LOOr 
Lor Me = 
FOR KK = Jie DO 
IF NFO (J KK “Kee ty rele 
LE i 
ALWAYS 
_, LOOP 
IF NSLOT. ; AVAIL. I EQ 0 
LET EL (1 De 400 
LET DiSTANG cE(T, ) = 400.0 
GO J 
_ ALWAYS 
IF MTJ EQ 0 
LET eR ES 81.4 2*Re AL AVAIL. 1/35 0 
LETC. EE 0 7 AVATLCHANNEL(1,J) 
LET DiSTANC ce 
1 2k + ALPHA * LINK.ATTENU(I,J) 
GO TO OTHER 
__ ALWAYS 
Leno Nee 


Mi 
LET MEANY. GIVEN. NODES = 0.0 
LET ee ae = MTJ 


IF MTJ_ GE 
LET LARGEST.MRJ = NJ 
ALWAYS 


LET SMALLEST.MRJ = TRUNC.F((MTJ + 1.0) / 2.0) 
IF SMALLEST.MRJ LT 1 
LET SMALLEST.MRJ = 1 
ALWAYS 
FOR MRJ = SMALLEST.MRJ TO LARGEST.MRJ, DO 
LET MEANY.GIVEN(MRJ) = 0.0 


LET MAAY = Mid 


13:0 


/*> 


—~ 


IF MRJ GT NSLOT.AVAIL.I 
LET MAXY = NSLOT.AVAIL.1I 


ALWAYS 
LET SUMMATION = 0.0 
Lo ing ol 
LET BIY = MAXY + 1 


FOR ETY Aine TOSarY 7 be 
[iw = LLY = 1 


ee woOer l= NJ. = NSLOT. AVAIL.I 
[chiebe © homie = MRI LY 
IF BOTTOML GT WON eo 
LET ARG1L OO 
ALWAYS 


LET TOP2 = NSLOT.AVAIL.1L 
LEI eeOPlOM2 = 1 y 
IF BOTTOM2 GT _TOP2 

LET ARG2 = 0.0 


Pi SpettoM-aGieTOPZ OR BOTTOM] GI TOP1 
GO TO OTHERIY 
ALWAYS 


PERFORM COMBINATION GIVEN TOP1 AND BOTTOM1 
YIELDING ARG 


PERFORM COMBINATION GIVEN TOP2 AND BOTTOM2 
YIELDING ARG2 


' 


"OTHERLY ' 


= ARGZ 


BES Se ee ARG1 
TION + PROBY.GIVEN(IIY) 


LET SUMMATIO 


LET MEANY. CER RD 
REAL. F(1IY) OBY GIVEN(IIY) + MEANY.GIVEN(MRJ) 


LOOP 

IF SUMMATION LT 
LET MEANY. GIVEN (MRJ) = 0.000 
GO TO OTHERMRJ 

ALWAYS 


LET MEANY.GIVEN(MRJ) = MEANY.GIVEN(MRJ) /SUMMATION 


Y 


t 


'OTHERMRJ' 
LET MEANY.GIVEN.NODES = MEANY. GIVEN(MRJ} 
+ MEANY.GIV DES 
_ LOOP 
_ LET R- = LARGEST.MRJ - SMALLEST.MRJ + 1 
LET MEANY = MEANY.GIVEN.NODES / REAL.F(R) 


LET AVAIL HAN EL i Eye = 
2.0 *(REAL.F(NSLOT.AVAIL.1I) - MEANY(1I,J))/3.0 


IF AVATLCHANNEL (T, J ay 01. 2 
LET 2)" 395.0 
LET DISTANC y= 395.0 


SO TO OTHER. - 
ALWAYS 


iu 


0 if AVAILCHANNEL (1 ,J = gee 
=Geerny lee & 
+ ALPHA 


LET Set - = ol 
(Gia) Ls J) 
* LINK. ATTENU(I,J) 


LET DISTANC 


, oF 


. ALWAYS 
“Cinch. te 
LOOP 


L00P 


JY eel cle aN ib a6 )5 

PRINT 5 LINES AS FOLLOWS 

THE CONTENTS OF THE DISTANCE ARRAY AFTER UPDATING 

ra hte a ea le ARE: 3 4 5 é : 

a — = 


FOR I = 1 TON, DO 

PRINT 1 LINE WITH I, DISTANCE ( TANGER Gna? 7 
DISTANCE(1,3) , DISTANCE ( T 5 
DISTANCE(T,6) AND DISTAN S FOLLOWS | 

+ Pes Ps Py ohy i SS oN ee #8 ‘ pi Pia PS 3 ris oth Re AS we "~ Py ois Ps ey P a “SN aN aN ON % 

LOOP 

SKIP L OUTPUT LINE 

PRINT 4 LINES AS FOLLOWS 

CONTENTS OF THE DISTANCE ARRAY (CONT. ) 

F L 


= lel = 
PM tt i ke ee 
FOR T= 1T0N, DO ©. | |e 0 
PRINT 1 LINE WITH I, DISTANCE(I 7 DISTANCE(TI 2) 
= _DEISTANCE(T,10} AND DISTANCE (T,1]) AS FOLLOWS 
LOOP para! e s e e 
SKIP 2 OUTPUT LINES 
ALWAYS 
RETURN 
END ''’ COMPUTE.CURRENT.DISTANCES 


' ? 


i] 
i] 
' 
' 
t 
t 


a 


FS SSS SSS SSS SSSSSSSSSSSSsSSsssSSssSSsSsssSSssSsSsSsssSsssss 


ROUTINE FOR COMBINATION GIVEN TOP AND BOTTOM 
YIELDING ANS 


DEFINE ANS1, ANS2 AND ANS3 AS REAL VARIABLES 
DEFINE CRESULT AS A REAL VARIABLE 


LED TVOPe=)10r 
LED EBOTTOM. = )5bo rrom 
LET ICo= LTGP - tsericn 


PERFORM FACTORIAL GIVEN ITOP YIELDING ANSI 
PERFORM FACTORIAL GIVEN IBOTTOM YIELDING ANS2 
PERFORM FACTORIAL GIVEN IC YIELDING ANS3 


LET CRESULT_= ANSI / (CANS3)= SaNis2®) 
LET ANS = CRESULT 


RETURN 
END '' COMBINATION 
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’ 
’ 
y 
’ 
’ 
’ 
R 
? 


| SSSSS SSS SSS SSS SSS SSS SSS SS SS SS SSS SS SS SSS SS 39399399999 
QUTINE FOR FACTORIAL GIVEN IVALUE YIELDING FAC.VALUE 


EFINE FAC.VALUE AS A REAL VARIABLE 


DEE 


p 
L 
I 
a 
I 


A 


EFINE INUM AS A INTEGER VARIABLE 


ET INUM = IVALU 
F INUM EQ OR INUM EQ 0 
mon FAC. VALUE = 1. 
RETURN 

LWAYS 


F INUM GE 2 
LET FAC. VALUE = 1.0 
FOR I = 2 TO INUM, DO . 
LET FAC.VALUE + FAC.VALUE * REAL. F(I) 
LOOP 
RETURN 
LWAYS 


PRINT 1 LINE AS FOLLOWS 


“6 
Ip 


OUR INPUT DATA TO THE FACTORIAL ROUTINE IS NEGATIVE 
ERFORM TERMINATION 


RETURN 


E 


-— =~ 2 2 = fT] 7-37 ew ww 


i 


ND '' FACTORIAL 


’ 


SSS SS SSS SSS SSS SSS SS SSS SSS SSS SS SS SSS SSSSSSSSSS SS S$ $sgss 
VENT NEW.CALL SAVING THE EVENT NOTICE 


THIS EVENT GENERATES CALL AND SENDS ''REQUEST FOR 
SERVICE" FROM A CALLING NODE TO A CALLED NODE 


F PRNT EQ 0 
PRINT 1 LINE WITH TIME.V AS. EQLLOWS . 
NEW CALL GENERATED AT TIME cute SECS 


eee 2 OUTPUT LINES 


ALWAYS 


' 


EFINE DELAY] AS A REAL VARIABLE 


D 
Wem CKT.SUM = CKT.SUM + 1 
IF CKT.SUM_GE MAX.CKT 


PRINT 2 LINES WITH TIME.V_ AND See ae AS FOLLOWS 
NUMBER OF CKTS ATTEMPTED Poca aa eral PE RMmD TS D:, 
SeeMULATION HALTED AT “***,*=* SEC 

soe )} OUTPUT LINE 


PERFORM TERMINATION 
RETURN 


ALWAYS 


SCHEDULE A NEW.CALL 
AT TIME.V + EXPONENTIAL. F(MEAN.SYS.CALL.ARRIV,5) 
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_, SELECT A TRANSHEIEER 


Tae 


' SELECTAGAIN' 
LET XMTR = RANDI.F(1,N,1) 


' 


"| SELECT A CORRESPONDING RECEIVER 


re? 


LET RCVR = RANDI.F(1,N,2) 
IF RCVR EQ XMTR 

GO TO SELECTAGAIN 
ALWAYS 


LET ORG.NODE = XMTR 
LET DEST.NODE = RCVR 
LET CALLED.NODE = BEST. PATH(XMTR,RCVR) 


IF CALLED.NODE LI Ll OR CALLED NODES Gil 
PRINT 1 LINE AS FOLLOWS 
CALLED.NODE WAS NOT DETERMINED PROPERLY 
Minit TERMINATION 


' f 


PRINT 1 LINE WITH CKT.SUM,ORG.NODE,DEST.NODE AND TIMER 

L Sa pe AS FOLLOWS |. [ PP A eee aera ol 
CTrRGUG pier aie FROM NODE ey Te iets) BEGUN AT WIETETE  SIE IS SECS 
psd lies bP OUTEUT- Eri 


LEP BK.TO.DEST = BK. 10 Diet! 
FOR SJ) = lon 


12 
IF INFO(XMTR i EO 0 AND Ra 3,4) EQ O AND 
CALLED’ NODE,J,1) E 


INFO 
GO 

ALWAYS» 
LOOP 

IF PRNT EQ 0 

PRINT 3 LINES WITH ORG.NODE,CALLED.NODE AND CKT.SUM 

NO MUTUALLY AVAILABLE SLOTS BETWEEN THE ORG.NODE ** AND 
CALLED NODE ** TQ CARRY THE REQUEST SERVICE MESSAGE FOR 


CIRCUIT NUMBER 
SKIP 1 OUTPUT LINE 
ALWAYS 


LET CK@. FAILED = CKisr ace eae 

LET Ss TO,DEST >= BK. TO. ESi eee. 

LET P.BD.COUNTER = P.BD.COUNTER + 1 
GO r0 LAST. NEW. CALL 


'' SELECTS A CURRENT SLOT RANDOMLY AND 
'. CONTINUES PROCESSING 


ed 


LET CURRENT.SLOT = RANDI.F(1,12,3) 


FINDS THE NEXT MUTUALLY AVAILABLE SLOT 


' 


yon Sia Wee 0 
LET FRAMEL = 0 


iP CURRENT {Shor sy@e 12 
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GO ie NEXT. FRAME1 
ALWAY 


LET K = CURRENT.SLOT + 1 


FOR J = K TO 12 
LF INFO(ORG.NODE’ 1) ot OR INFO(ORG.NODE,J,4) GT 0 
LET SP CENFOCORG. a E, CALLED. NODE, J) = 0 


ALWAYS 
IF S$ PECINFO (ORG. NODE, CALLED. NODE J) EQ 6 AND 
INFO(CALLED. NODE 1) EQ 
| pENEO ORG . NODE, J th EQ 0 AND ler NODE,J,4) EQ 0 
LET SPECINFO(ORG.NODE,CALLED. NODE, J) 
GO TO ON2 


ALWAYS 
LOOP 
LET FRAME 1 
- ‘0 CURRENT SLOT DO 
irs ee NODE 1) GT "OR INFO(ORG.NODE,J,4) GT 0 
LET SPECINFO(ORG. ~ x0 E, CALLED. NODE,J) = 0 


At 4S PECINFO (ORG. NODE, CALLED. NODE J) EQ 6 AND 
INFO(CALLED. NODE 

1 peNEO ORG. -NODE, Tht é 6 CAND ie NODE,J,4) EQ 0 

LET SPECINFO(ORG.NODE,CALLED.NODE,J) = 

GO TO ON? 

LWAYS 


BOR] J = K TO 
LF INFO(ORG. NODE? 7) EQ 0 AND o HFOCORG. NODE,J,4) EQ 0 
AND. INFO (CALLED: NODE,J,1) E 


ils il 
FOR J = t TO CURRENT , SLOT, DO 
IF AND {NFS NODE 1) EQ 0 AND es Se NODE,J,4) EQ 0 
(CALLED: N DER rile wae 


IL) Ddk 

GO T0 MON? 
ALWAYS 
LOOP 

conrO YY 


t f 


NEXT. FRAME1' 


LET F FRAME 1 = 
IF Age ONODE J 1) GT OR INFO(ORG. NODE, 5) eae 0 
bET SPECINFO(ORG. aa Ep CARLED. NODE,J) = 


ATS 4‘ PECINFO (ORG. NODE , ae NODE J) EQ 6 AND 
INFO(CALLED. NODE D 
INFO(ORG.NODE, ahs E 6 CAND INFO(ORG.NODE,J,4) EQ 0 
Mert SLOT] = J 
LET SPECINFO(ORG. NODE,CALLED.NODE,J) = 0 
GO TO ON2 
ALWAYS 
LOOP 
Boke = 1 TO 12, DO 


lio 


IF INPO(ORG NODE.J,1) £Q 0, AND og NFOCORG: NODE,J,4) EQ 0 
AND NFO(CALLED.N DEJ) 5 


LET SLOT] = 
GO TO ON2 
ALWAYS 
LOOP 
t (Oe ' 
PRINT 1 LINE WITH CKT.SUM AS FOLLOWS 
CIRCUIT NO. **** FAILED IN EVENT NEW CALL 


SKIP 2 OUTPUT LINES 


LET CKT.FAILED = CKT.FAILED + 1 

LET BK.TO.DEST = BK.TO.DEST - 1 

LET P.BD.COUNTER = P.BD.COUNTER + 1 
RETURN 


— ONZ PDE Nee bol rss SLOT TO CARRY THE SERVICE MESSAGE 
'. TO THE CALLED NODE AND CREATES THE SERVICE MESSAGE 


,QN2 
CREATE A MESSAGE 


LETSCKRE: Sf oteteetis eee SST = CKT.SUM 
LET TYPE(MESSA 


LET ORIGINATOR(M Se arae = ORG.NODE 
ER Os ON a NCIEIE ee 2) = DEST.NODE 
Chonan RG. NODE 
Eee NODE ME SAGE = CALLED .. Byes 
LET GrARD a ME (ME 


LET SLOT.ARRIVAL MESS gEde) 2 SLOT 
LET SLOT.ASSIGN BeOS) a = SLOTIL 
LET RECSLOT (MESSAGE OT1 

LET DIERECTE Nee ee BY} = 2 


LET REATTEMPT (MESSAGE 
IF_PRNT EQ 0 
PRINT 2 LINES WITH SLOT] AND FRAME] AS_ FOLLOWS 


SLOT ** OF FRAME ** WAS USED TO CARRY REQUEST FOR 
SERVICE FROM CALLING NODE TO THE CALLED NODE 
SKIP 1 OUTPUT LINE 

ALWAYS 


' CALCULATES WHEN THE SERVICE MESSAGE WILL ARRIVE AT 
i‘ THE CALLED NODE AND SCHEDULES 1s Akh, 2e 


vot 


LET DELAY] = (REAL. F(12*FRAME1 + SLOT1 - CURRENT.SLOT) ) 
SLOT . DURATION 


-— =. 


Viet 


IF PRNT EQ 0 
PRINT 2 LINES WITH CKT.SUM,CALLED.NODE AND 
_.(TIME.V + DELAY1) AS’ FOLLOWS f: 
CRT see HAS SCHEDULED AN REQUEST FOR SVC AT NODE ** 
SKIP 2 OUTPUT LINES 
ALWAYS 
'' MAKE THOSE SLOTS ALLOCATED FOR ROUTING MESSAGES 
'' AVAILABLE FOR VOICE TRAFFIC 
SCHEDULE A REQUEST .FOR.SVC GIVEN MESSAGE 
AT TIME.V + DELAY] 


LAST.NEW.CALL' 
IF PRNT EQ 0 


16 


PRINT 1 LINE AS FOLLOWS 
ATTRIBUTES OF ENTITY AT THE END OF NEW CALL ARE 
LIST ATTRIBUTES OF MESSAGE 
SKIP 2 OUTPUT LINES 
ALWAYS 


t ¢ 


RETURN 
'" NEW.CALL 


“7 
2 
o 


BRR w www Eww wR Rw wR RG GwwwwRR Gk wwURREEwawRREEsssERERS 
ENT REQUEST.FOR.SVC GIVEN MSG1 SAVING THE EVENT NOTICE 


THIS EVENT SIMULATES ACTIONS PERFORMED AT A CALLED 
NODE AFTER RECEIVING AN REQUEST FOR SERVICE FROM A 
CALLING NODE 


LET MESSAGE = MSG1 
IF PRNT EQ 0 
PRINT 1 LINE WITH TIME.V AS FOLLOWS... |... 
REQUEST -FOR SVC PERFORMED AT TIME | Set  voeinee 
SKIP 2 OUTPUT LINES 
ALWAYS 


IF PRNT EQ 0 

PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY AT START OF REQUEST.FOR.SVC ARE: 
LIST ATTRIBUTES OF MESSAGE 

SKIP 2 OUTPUT LINES 


ALWAYS 
DEFINE DELAY2 AND DELAYR AS REAL VARIABLES 


mit) FRAME .REC 0 

LET CURRENT. SLOT = SLOT.ARRIVAL(MESSAGE) 
LET CALLING.NODE = FM.NODE MESSAGE ) 

LET CALLED.NODE = TO.NODE ESSAGE ) 

LET SLOT.REC = CURRENT. SLOT 


BeRet =] TO 12, DO 
IF INFO CALLED - NODE, I ade ‘EQ CKT.NUMBER(MESSAGE) 
PRINT Lt LINE AS FOLLO 


PERFORM TERMINATION 
ALWAYS 
L.90P 


t f 


IF TNFO( CALLED. NODE ,SLOT.REC, tT} : 


- - ~ ~ -f{T] ~ =~ =~ « 
~~ - ~ ~~ wm 


Te slOT. DEPTH AND 
O ett NODE, SHL(OHE 1. Ib Q 0 


IF _REATTEMPT (MESSAGE) LT MAX ATTEMP 
LET REATTEMPT (MESSAGE = REATTEMPT (MESSAGE ) + 1 
SeSEeSLOT.USED = SLOT. 


LET FRAMER = 1 
Mer TTR = SLOT.USED + 1 
FOR IR = IIR TO 12. DO 
IF INES (EAPEANS .NODE,IR, x3 GT O OR 


INFO(CALLING.NODE.IR.4 
LET SP CINFO(CALLING. NODE, CALLED. NODE, IR) 
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IF SPECINFO(CALLING. NODE , CALLED , NODE, IR) EQ 6 AND 


INFO (CALLED. NODE he 
CALLING. NODE, IR.4 
SOI ee 10 
LET SPECINFO(CALLING.NODE,CALLED.NODE,IR) = 
_ GO TO MORE. ATTEMPT 
ALWAYS 
LOOP 
ER SLOLAUSED hOmm 
GO TO xX 


ATWAYS 


EQ 9 0 AND 


ER = 2 

LET LgR = SLOT UShD eal 

FOR DS ee) ek, IC 

IF INFO CALLING. NODE. TRe 1) sce, OF 
INFO(CALLING.NODE.JR.4) GT 

LET SP CINFO (CALLING. NODE , CALLED. NODE, JR) 


HPS FSREEENG NODE JR 1} E 


} EQ 0 AND 
CALLING. NODE; JR; 4 
VERS VUOMEN = 
LET SPECINFO(CALLING.NODE,CALLED.NODE,JR) = 
GO TO MORE. ATTEMPT 
ALWAYS 
LOOP 


LET FRAMER = 1 
FOR IR = (SLOT.USED + 1) TO 12, DO 
IF INFO(CALLING.NODE,IR, Ly E é: AND 
INFO(CALLING.NODE,.IR,4 
INFO( CALLED. NODE, 1IR,1)° EQ 


' 


LEE eouomr 
GO TO MORE.ATTEMPT 
ALWAYS 
LOOP 
TResLOtsucnpe Hoel 
COenOm 
ALWAYS 
LET FRAMER = 


sie 
FOR JRe20 1) 10" Gclbo EeuoEine 1) DO 
IF INFO(CALLING.NODE, JR, }} Q AND 
INFO(CALLING.NODE.JR 3 EQ O AND 
INFO(CALLED.NODE,JR,1)° EQ 0 
LET SLOTR = JR 
GO TO MORE.ATTEMPT 
ALWAYS 
LOOP 
GO TO XX 
'MORE. ATTEMPT ' 


ily ee »JR) EQ 6 AND 


LET DELAYR = (IBA SAS SLOT.USED) + FRAMER- ios 


LET RECSEOD MESSAGE > see ss 
LET DIRECTION (MESS mee 
LET SLOT.ASSI N(MESSA E),= Swann 
,LET SLOT.ARRIVAL(MESSAGE) = 


SCHEDULE A REQUEST.FOR.SVC GIVEN MESSAGE 
AT TIME.V + DELAYR 


RETURN 


138 


ALWAYS 
RX 


IF PRNT EQ 9 
PRINT NES WITH CKT. NUMBER R (MESSAGE ) 
ORIGINATOR (MESSAGE) INATIO (MESSAGE ) 
tS FOLLOWS NODE (ME We AND FM.NODE(MESSAGE) 


AS 
fone =~ FM TO ** BROKEDOWN AT TIME ****  xwexwe DUE TO 
NO MUTUALLY AVAILABLE | LOT BETWEEN THE CALLED NODE ** 


LET CKT.FAILED = CKT.FAILED + 1 
bees. TO.DEST = BK.TO.DEST - 1 


iy CRTC TIREST (aie Sesser) 1 EG@eeM: SOY ale eNGa) 
Eat P COUNTER 
DESTROY THE MESSAGE CALLED MESSAGE 


LET BK.TO.ORG = BK.TO.ORG IL 

ioe TYPE MESSAGE = PARTIAL. BREAKDOWN 
LET DIRECTION (ME SC lS 

LET START.TIME(MESSAGE) = ST IME.V 


SCHEDULE A TO.ORG.BREAKDOWN GIVEN MESSAGE 


AT TIME.V + BREAKTIME 
RETURN 


' 


_, FIND THE NEXT MUTUALLY AVAILABLE SLOT 


IF CURRENT.SLOT EO 12 
GO TO NEXT. FRAME 
ALWAYS 
Mere = CURRENT.SLOT + 1 
HORS = LTO 12 , DO 
IF INFO(CALLED~ NODE J yl), CleOsOR 
INFO(CALLED.NODE.J.4) GT 0 
LET SP CINFO(CALLED” NODE,CALLING.NODE,J) = 


ALWA 
TF SPECINFO( CALLED. Ne CALLING.NODE,J) EQ 6 AND 


INFO(CALLING.NODE ) BQ 0 AND 
INFO (CALLED. NODE cn am QO AND 
INFO(CALLED.NODE.J.4 0 

LET SP CINFO( CALLED. . NODE, CALLING. NODE, J) 

LET SLO 

GO TO OK2 

ALWAYS 

LOOP 

LET FRAME2 = 


2 i 
Peake = | TO CURRENT.SLOT, DO 
a TNE OT GAEE ED: NODE,J,1) GT O OR 
INFO(CALLED.NODE, my” Pel 0 


eat SCI. SLILISL NODE , CALLING.NODE, J) 


IF SPECINFO(CALLED. NODE CALLING . NODE ,J) EQ 6 AND 
INFO(CALLED.NODE,J,1) EQ O 

INFO(CALLED.NODE. +} } dere AND 
INFO(CALLED.NODE. EO 0 

ECINFO (CALLED. GbE , CALLING .NODE, J) 


OK2 


7 oie 2 
LET SL 


INFO(CALLED.NODE,J,4) E Gnome = 


2, DO 
IF INFO(CALLED.NODE,J, 3} Eg QO AND 
INFO CALLING. NODE,J,1) 
D2 = J 


LET FRAME2 = 1 
FOR Je] | TO. CURRENEeSoE 


OT, D 
IF INFO(CALLED. NODE ,J,L) EQ O AND 
INFO(CALLED.NODE,J.4) EQ 0 AND 
INFO CALLING. NODE’ Jo) re. 0 
EEE ShOn25e a 
Gore 1OK2 
ALWAYS 


LOOP 
GO TO YYY 
"NEXT. FRAME2 ' 
LET FRAME2 = 
FOR J = 3 TO 12, DO 
IF INFO(CALLED:NODE,J,1) GT Q OR 
INFO(CALLED.NODE,J>4 


GT 0 
LET SP CINFO(CALLED.NODE,CALLING.NODE,J) = 
IF SPECINFO(CALLED.NODE,CALLING.NODE,J) EQ 6 AND 
INFO(CALLED.NODE,J,1) EQ 0 AND 
INFO(CALLED.NODE.J.1) EO C AND 
INFO(CALLED.NODE.J.4) EO 0 
LET SP CINFO( CALLED. .NODE,CALLING.NODE,J) = 
LEE Solon 
Coan 
ALWAYS 
LOOP 


FOR J =. O7 1 Zao 
IF INFO(CALLED. NODE, Hy 1) EQ 3CeaND 
INFO Eo 


CALLED. NOD -4) EO O AND 
INFO (CALLING. NODE I 0 

LED clea? = 4 

GO TO OK2 
ALWAYS 
LOOP 

i vavayes 
PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS 
CIRGULE FAILED IN EVENT REQUEST. FOR.SVC 
SKIP 1 OUTPUT LINE 
GO TOP EXIT 


' f 
UY 


OK2 IDENTIFIES THE SLOT TO CARRY THE SLOT ASSIGNMENT 
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AND SENDS REQUEST BACK TO THE CALLING NODE AND ALSO 
COMPUTES WHEN THE SERVICE MESSAGE WILL ARRIVE AT 
THE CALLING NODE 


OK2' 
LET DELAY2 = (REAL.F(12*FRAME2 + SLOT2 - CURRENT. SLOT) ) 
SLOT . DURATION 


'' ASSIGNS SLOTS,UPDATES MESSAGE AND 
'' ‘SCHEDULES RESPONSE.TO.REQUEST AT 
'' THE CALLED NODE 


Cat 


ii SLOT. ERTL SLO 
LET SLOT.ASSIGN ge) HOME Ss AB 
Ie er RECSLOT (MES AGE) LOT. REC 


IF PRNT EQ 0 

PRINT NES WITH CKT. ; NUMBER (MESSAGE ) FM. ~ NODE (MESSAGE ) 
AND (TIME.V + DE 2) A OLL a 

CIRCUIT sae HAS “SCHEDULED A RESPONSE TO” sve AT NODE ** 

SKIP 2 OUTPUT LINES 


PRINT 1 LINE_AS FOLLOWS 
ATTRIBUTES OF ENTITY AT END OF REQUEST FOR SVC ARE: 
LIST ATTRIBUTES OF MESSAGE 

SKIP_1 OUTPUT LINE 

ALWAYS 


SCHEDULE A RESPONSE.TO.REQUEST GIVEN MESSAGE 
eee LiME.V + DELAYZ 


RETURN 
END '" REQUEST FOR SERVICE 


© B&G & G&G RRR BERR E EB w aw GGG GGG RRERRUEGaw GEE EERRRESE SEES 


VENT RESPONSE.TO.REQUEST GIVEN MSG2 


E 

'' THIS EVENT SIMULATES ACTIONS PERFORMED AT A CALLING 
'' NODE AFTER RECEIVING A RESPONSE TO REQUEST FROM 

'' A CALLED NODE 

# 


’ 

' 

ET MESSAGE = MSG2 

IF PRNT EQ 0 

PRINT 1 LINE WITH TIME.V AS FOLLOWS ee 
-RESPONSE.TO.REQUEST PERFORMED AT TIME 9 **t% , scterdes 


SKIP 2 OUTPUT LINES 
ALWAYS 


IF PRNT ,£2.,9 

PRINT 1 LINE AS FOLLOWS 

EATRIBUTES OF ENTITY AT START OF RTR ARE: 
LIST ATTRIBUTES OF MESSAGE 

SKIP 2 OUTPUT LINES 

ALWAYS 


DEFINE DELAY3 AND DELAYR AS REAL VARIABLES 
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LET FRAME.REC = 0 

LET CALLING NODE = FM NODE MESSAGE) 
LET CALLED.NODE = TO.NO ED. 
LET SHOT. REC) ese ARRIVAL (MESSA E) 


IF INFO(CALLING.NODE,SLOT.REC, eon 
AND NFO (CALLING. .NODE, SLOr-R C,4) ae SLOT DEE 
‘GO TO CORRECT 


ALWAYS 


LF REATTEMPT ec MAX .ATT 


EM 
LET REATTIEM T (ME OSA Ey : REATTEMPT (MESSAGE) gy IL 
LET SLOT.USED RECSLOT (MESSAGE) 


LET FRAMER = 1 

FOR IR =—(SLOLSUcHD ae TO. 12 DO 

IF INFO(CALLING.NODE, IR, 1 mor 
INFO(CALLING.NODE. at 0 

LET Se CINFO (CALLING. NODE,CALLED.NODE,IR) = 


ALWAYS 
IF SPECINFO(CALLING.NODE,CALLED.NODE,IR) EQ 6 AND 
INFO(CALLED.NODE,IR 1} E ND 
INFO CALLING .NODE,IR 0 AND 
INFO(CALLING .NODE.IR.4) EO 0 
LET ee CINFO CALLING. NODE, CALLED. NODE, IR) 
LET SLOTR R 
GO TO MORE. ATTEMPT 


AL 

LOOP 

IF SLOT.USED EQ 1 

COr TO Xxx 
ALWAYS 

LET FRAMER = 2 

FOR IR = 1 TO (SLOT.USED - 1), DO 

IF INFO(CALLING.NODE,IR,1) Gf O OR 

INFO(CALLING.NODE.IR.4) GT 0 
bET SP CINFO(CALLING .NODE, CALLED. NODE, IR) 


IF SPECINFO(CALLING.NODE,CALLED.NODE,IR) EQ 6 AND 
INFO(CALLED.NODE,IR,1) EQ 0 AND 
INFO (CALLING . NODE, -IR;>1) EO O AND 
INFO(CALLING.NODE.IR24) EO 0 
E, CALLED. NODE, IR) 


CE. 
LE Ss ECINFO( CALLING. NO 
LET SLOTR = 


GO 10 MORE-ATIEMPED 
WAYS 


Eoue FRAME 1 
FOR PLOT. USED + Ljano 
IF INFO ALLING NODE, J =a 
INFO(CALLING. Ri4 
INFO(CALLED. NODES PRI ) 
1) a ey S001 oe 
GO TO MORE. ATTEMPT 
ALWAYS 
LOOP 


LF SOT. Use Dae Oil 
COTO sex 
ALWAYS 
LET FRAMER = 


ZI 
FOR JR t To’ (SLOT.USED - 1) DO 
IF INFO(CALLING.NODE,JR,1) EQ 0 AND 


ny 

ES QO AND 
EQ 0 

EQ 
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INFO(CALLING.NODE,JR,4) a O AND 
TNEO( CALLED. NODE,JR,1)°E 

LET SLOTR = JR 

GO TO MORE.ATTEMPT 


ALWAYS 

LOOP 
GO TO XX 
'MORE. ATTEMPT ' 


LET DELAYR = (REAL.F(SLOTR_- SLOT.REC)+(FRAMER * 12.0)) 
SLOT . DU URATION 

LET E SESRLRE HERS d ac 

MET SLOT IGN(MES SAGE) = 

CET DIRECTION (M E) 

LET SLOT. ARRI ALCMESS GE)” = SLOTR 


SCHEDULE A RE One GIVEN MESSAGE 
AT TIME.V + DELAYR 


RETURN 
ALWAYS 


XX! 


IF PRNT 
PRINT 3 Foyes WITH CKT. NUMBER ( MESSAG 29) 
ORIGINATOR (MESSAGE ) TINATIO (MESSAGE) 
TIME.V, FM.N ODE (ME «ADEs AND TO.NODE(MESSAGE ) 
CKT we" FM ** TO Pye BROKE DOWN AT we eee DUE TO 
NO MUTUALLY AVAILABLE. SLOT BETWEEN THE CALLED NODE ** 
AND THE CALLING NODE ** 
SKIP 2 OUTPUT LINES 
ALWAYS 


LET TYPE(MESSAGE) = PARTIAL. BREAKDOWN 
Mane CKT.FAILED = CKT.FAILED + 1 

LET BK.TO.DEST = BK.TO.DEST - 1 
MameskK.TO.ORG = BK.TO.ORG + 1 

mee START . TIME (MESSAGE) = TIME.V 


IF PRNT EQ 0 
PRINT 1 LINE WITH CKT. NUMBER (MESSAGE) AND TIME.V 
CIRCUIT “#222 FAILED TO CONNECT AT TIME %i , sinters 


SKIP 2 OUTPUT LINES 
ALWAYS 


t f 
' *f 


IF FM.NODE (MESSAGE RAS. si iaala 
LET RECSLOT(MESSA ies 
,LET DIRECTION (MESSA E) = 


SCHEDULE A TQ.DEST.BREAKDOWN GIVEN MESSAGE 
eeu * + BREAKTIME 


ALWAYS 


,LET DIRECTION (MESSAGE) 


SCHEDULE A TO.ORG.BREAKDOWN GIVEN MESSAGE 
AT TIME.V + BREAKTIME 


RETURN 


' 
t f 
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Tat 


"CORRECT ' 


LET INFO(CALLING NODE, SLOT. ASSIGN (MESSAGE) , 1) 
= BER (MESSAGE 


LET INFO(CALLING. NODE, SL T. ASSIGN (MESSAGE), 3) = SLOT RES 
LET INFO(CALLING. NODE. SLOT. ASSIGN(MESSAGE).3)=CALLED. NODE 
LET TSLOT = SLOT .AGSIGN@IEGGKCE 


LET SBECINFO (CALLING. NODE , CALLED.NODE, TSLOT ) 


LET INFO CALLING . NODE, SLOT.REC,4) 
CALLING. NODE, SLOT.REC,4) + 1 

EET XSLOT. ALLED = SLOT REE 

LET povor. CALLED = Stor. ASSIGN (MESSAGE 

Ler Gio: ARRIVAL MESSAGE) = RSLOT.CALLED 

LET SLOT.ASSIGN (MESSAGE XSLOT. GALMED 

10) 34 RECSLOT (MES AGE) = XSLOT.CALLED 


CALLED. NODE. XSLOT.CALLED, 2 )=RSLOT. CAL 
LET INFO(CALLED. NODE. XSLOT.CALLED CALLING. NODE 
LET SPECINFO(CALLED.NODE,CALLING. aig E, XSLOT. CARLED = 
LET INFO (CALLED . NODE. RSLOm CAlEE 
O(CALLED.NODE,RSLOT. CALLED? 4)+1 


LET oe -NODE,XSLOT.CALLED, 3: CKT. coe 


' CHECK WHETHER THE CIRCULT IS COMPLETE 
' IF YES, CALL THE COMPLETE.CKT ROUTINE AND 
' COLLECT STATISM Gsm 


Faor Ee oe ve pape nae te ee 
LET START.TIME(MESSAGE) = E.V - START. TIME(MESSAGHD 
a ea VIRTUAL.CKT GIVEN MESSAGE 


WAYS 


IF THE CKT HAS NOT BEEN ESTABLISHED ALL THE WAY 10 
THE DESTINATION ,THEN SPECIAL ACTION MUST BE TAKEN 
TO ESTABLISH THE NEXT LINK TO THE DESTINATION 


T TO.NODE(MESSAGE 
= BEST. PATH(FM.NODE(MESSAGE) , DESTINATION (MESSAGE) ) 


THE REST OF THIS EVENT SIMULATES ACTIONS PERFORMED 
AT AN INTERMEDIATE NODE . 


WE BEGIN TO CHECK WHETHER THERE IS A SLOT AVAILABLE 
IN THIS ASSIGNED CALLING NODE TQ ACCOMODATE 
THE TRANSMISSION TO THE NEWLY ASSIGNED CALLED NODE 


t 


LET CALLING.NODE = ae BO OE NEE ante CHL 


L 
ET TO: NOBE (MESSAGE) = TO.NODE(MESSAGE) 
t 


ee Gnd Gun = 


LET CALLED.NODE = -NODE(MESSA a 
LET CURRENT. SLOT = SLOT. ARRIVAL (MESSAGE ) 
LET Sun 0 


LET FRAME3 = 0 
LEOCURRENT sO —EOerZ 
Je ae ee 

GO TO NEXT. FRAME3 
LWAYS 


LET K = CURRENT. at “peel 
FORS. =.Ker0. cL 
ine INFO( CALLING N NODE, a i GT O OR 


INFO( CALLING ) GT 
LETese a NODE, CALLED. NODE, J) 
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ALWAYS 
IF SPECINFO(CALLED. NODE CALLING ; ,NQDE, J) EQ 6 AND 
INFO CALLING . NODE 1) D 
CALLED. BJ, 1 *aND 
CALLING. NODE. 3 \° oo 
LET SP CINFO (CALLING. NODE , CALLED. NODE, J) 
meer SLOT3 = 
66 TO CONT1 
ALWAYS 
LOOP 


LET FRAME3 = L 
FOR J = 1 TO CURRENT.SLOT, DO 
IF INFO(CALLING.NODE, J; } GT O OR 
INFO(CALLING.NODE, Taa() 
LET SPECINFO(CALLED. NOD FeMEPING NODELI). = 0 


ALWAYS 
IF SPECINFO(CALLING. NODE, CALLED. NODE,J) EQ 6 AND 
INFO(CALLED. NODE 1) \E D 
INFO(CALLING. NNODE oo a AAND 
INFO(CALLING.NODE.J.4) E 
LET SP CINFO (CALLED. "-NODE,CALLING.NODE,J) = 
MED SLOT 
eo TO CONT 
ALWAYS 
LOOP 


WN 
© 


LET FRAME3 = 0 
nome] = K TO 12 
TF INFO(CALLED. NODE ad 4)"8 0 AND 
CAEN G 0 AND 
CALLING. one 
LOT3 = J 


GO TO CONTL 
ALWAYS 
LOOP 


LET FRAME3 = 1 
FOR J = 1 TO CURRENT. SLOT DO 
IF INFO(CALLING.NODE, E QO AND 
INFO( CALLING, NODE 3 7 
INFO(CALLED. NODE, J, 1) EO 
MET SLOT3 = J 
GO TO CONTL 
ALWAYS 
LOO 


P 
GQ TO YYYY 
"NEXT. FRAME3 ' 
LET FRAME3_= 
Hon J = | TO DO 
IF puigtesteree ‘NODE, J, aN GT 0 OR 


INFO(CALLING.NODE,J,4) GT_0 
CINFO(CALLED. NOD CALLING. NODE, J) 


LET SP 
ALWAYS 
IF SPECINFO(CALLING. NODE, CALLED . NODE,J) EQ 6 AND 
INFO(CALLED. NODE 1) E AND 
INFO(CALLING. NODE. i. °o AND 
INFO(CALLING.NODE.J.4 0 
LET SPECINFO CALLED. NODE, CALLING. NODE, J) 
LET SLOT3 = 
Seto CONTI 
AL 
LOOP 
O 


Hees = 1 TO.12, DO 
IF INFO(CALLING.NODE,J,1) EQ O AND 
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INFO(CALLING.NODE,J,4) EQ 0 AND 
INFO(CALLED.NODE,J,1)° EQ 0 
jejae SiL(OHUS ES 
GO TO CONT1 
ALWAYS 
LOOP 
Naga’ 
PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS 
CIRCUIT **** FAILED IN EVENT RESPONSE TO REQUEST 
SKIP 1 OUTPUT LINE 
'UNSUCCESS ' 
LET TYRE (MESSAGE) = PARTIAL. BREAKDOWN 
LET CKT.FALLED = CK? Sentnn 0 


LET BK.TO.DEST = BK.TO.DEST - 1 
LET BK, TO.ORG® =) BKg TO ;@R cme 


IF PRNT_EQ_0 

PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AND TIME.V 
AS FOLLOWS eat a Pare Oataataatatalat 
CIRCUIT: *%* FAILED TO CONNECT AT TIME #0 , scedorctes 
SKIP 2 OUTPUT LINES 

ALWAYS 


LET DIRECTION (MESSAGE) = 3 
LET START.TIME(MESSAGE) = TIME.V 


SCHEDULE A TQ.QRG.BREAKDOWN GIVEN MESSAGE 
red + BREAK LIME 


'' CONT1 IDENTIFIES A SLOT TO CARRY THE SERVICE MSG 
'' TO THE CALLED NODE AND ALSO COMPUTES WHEN THE 

'' SERVICE MESSAGE WILL ARRIVE AT THE CALLED NODE 
'CONTL' 


LET DELAY3 = REAL.F(12*FRAME3 + SLOT3 - CURRENT.SLOT) 
_ * “SLOT . DURATION 


LET SLOT. ARRIVAL (MESSAGE ) = SLOT3 
LET SlOL ASSIGN ESSAGE } = 0 
LET RECSLOT(MESSAGE) = 


LE Pe RNa VEU 

PRON D2 CPNES WITH LE UE ON reel) OL MITRE A 
ae AND SUED we: Le) AS _ FOLLOWS 

NG eos o, SCHEDULED A REQ FOR SERVICE ARSNOGPE 73 


E | 

SKIP 2 OUTPUT LINES 

ALWAYS 

SCHEDULE A REQUEST .FOR.SVC GIVEN MESSAGE 
AT TIME.V + DELAY3 


Ue 


IF PRNT EQ 0 
PRINT 2 LINES WITH CKT . NUMBER (MESSAGE ) FM.NODE(MESSAGE) , 
AND (TIME.V_+ DELAY d AS FOLLOWS S 
CKT **** HAS SCHEDULED A RESPONSE TO SVC AT NODE ** 
AT TIME Piel eri s F Preis 
SKIP 1 OUTPUT LINES 


PRINT 1 LINE AS FOLLOWS 
ATTRIBUTES OF ENTITY AT END OF RESPONSE TO8s Gare 
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LIST ATTRIBUTES OF MESSAGE 
preLe 2 OUTPUT LINES 
ALWAYS 


RETURN 
END '' RESPONSE TO REQUEST 


BEGG i Gh hi Gh S&S i GiGi hb i Gib ih hh GGG iG GG GS GSE EEEEEEEEKE 
ENT TO.DEST.BREAKDOWN GIVEN BDTODEST 


THIS EVENT BREAKS DOWN A ESTABLISHED CIRCUIT 
FROM THE ORIGINATOR TO THE DESTINATION 


: 
: 
iv 
i] 
' IT REMOVES SLOT ASSIGNMENTS FROM THE NODAL 

' SLOT ASSIGNMENT TABLES SO THAT THESE RELEASED SLOTS 
CAN BE USED IN THE ESTABLISHMENT OF OTHER CIRCUITS 
' 

, 

' 

' 

‘ 


THIS EVENT SELECTS A RELEVANT PORTION OF PROGRAM TO 
EXECUTE DEPENDING ON THE VALUE OF DIRECTION (MESSAGE) 


-2 : START BREAKING DOWN AN ESTABLISHED CIRCUIT 
FROM THE ORIGINATOR NODE TO THE DESTINATION 


-1 : CONTINUE BREAKING DOWN AN ESTABLISHED CIRCUIT 
FROM AN INTERMEDIATE NODE TO THE DESTINATION 


O : BREAK DOWN WHEN A RESPONSE TO REQ FAILED 
T MESSAGE = BDTODEST 
DEFINE INCREMENT AS A REAL VARIABLE 


IF PRNT EQ 0 

PRINT 1 LINE WITH TIME.V AS FOLLOWS... 
TO.DEST BREAK DOWN PERFORMED AT TIME %2%% , oceseoex 
SKIP 2 OUTPUT LINES 

PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY AT START OF TO.DEST BD ARE 
LIST ATTRIBUTES OF MESSAGE 

SKIP 2 OUTPUT LINES 
ALWAYS 


' f 


a TYPE (MESSAGE) EQ 
LET TYPE (MESSAGE 
ALWAYS 


tf 


LET CURRENT.SLOT = SLOT.ARRIVAL (MESSAGE ) 


IF DIRECTION(MESSAGE) EQ -1l 
GO TO CONT.BREAKDOWN 
ALWAYS 


IE DIRECTION (MESSAGE) EO 0 
GO TO RESPONSE. BREAKDOWN 
ALWAYS 


IF PRNT EQ QO AND Ee EYES) ECan ND 
es cee Sie ULL. BREA 
S WITH CKT. een MESSAGE 


z PARTIAL. BREAKDOWN 


TENE VAND SEAR TIME? TINATION (MESSAGE 
IME VY AND START .T ME ( MESSAGE AS FOLLOW 
PuReurlT ***~ FROM I) Tee ONCE ESTABLISHED 
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BROKEN DOWN AT TIME **%% ,*cr%c% AFTER CARRYING VOICE 
TRAFFIC FOR A CALL DURATION OF **%%.3*2e2 SECS 
SKIP 2 OUTPUT LINES 


LET Se et ee SEES BNET, 
lbba “START. TIME (Miss GE) JEalle 


LET BK-TO.DEST = BK. LO, Dec el 
LET DIRECTION(MESSAGE) = -1 


ROR 0 = leTO 12 DO 
TF_INFO(M. NODE(MESSAGE), I,1) EQ CKT.NUMBER(MESSAGE) 


Ee eOe a Oa ES ace Ne eee NQDE(MES Soe Tse) 


M (EM NODE (MESSAG 
LET RECSLOT(MESSA 


LET INFO Be Ses on SAGE Re 


oe Ik 


IN pA 
LET INFO . ENODE i] 2 0 
LET INFO(FM.NODE ESSAGE = 0 
LET SPECINFO(EM. MES Age} 1 0. NODE (MESSAGE) , 1) 


LET INFO(FM.NODE SODE AGE) ,1 
GO 70 COMPUTE. DELAY 


LOOP 


PRINT 1 LINE WITH SO US ee ee | a AS eae 
FAULT _ IN TOQ.DEST BREAKDOWN FOR CIRCULT 
Sa OUTPUT Cine 


WE HAVE SET THE TRANSMIT AND RECEIVE SLOTS AT THE 
ORIGINATOR NODE TO ZERO. 
WE NOW BREAK DOWN THE CIRCUIT ALONG THE UPSTREAM PATH 


CHECK pete WE ARE AT THE DESTINATION NODE 

IF SO NEED ONLY TO DELETE THE TRANSMIT AND RECEIVE 
SLOT ASSTGNMENTS FOR THIS CIRCUIT AND 

COLLECT STATISTICS DATA 


ee ee ee ee ee ee ee ee ee ee ee | 2) 


ONT .BREAKDOWN ' 


LET Valor ©. aoe DE It Re MESS 


GE 
LET SLOT1.REC INFO ODE ( MESSAGE), SLOT] . XMa Tees 
LET TOMES = TO.NODE ESSAGE 


LET INFO (TOMES SLOTL XMIES 1) eo 
LET SPEC NFO (TOMES FM. NODE MESSAGE ) SLOT1.XMIT) = 6 
LET INFO(TO.NODE(MESSAGE) ,SLOT1.XM1T,2) = 0 
LET INFO(TO.NODE(MESSAGE SLOT. XMLT °3) = 0 
LET INFO(TO.NODE(MESSAGE ) 
= INFO(TO.NODE(MESSA B5. SLOT1. REC ENS 


WE HAVE COMPLETED RELEASING THE DOWN-SIDE RECEIVE 
AND TRANSMIT SLOT ASSIGNMENTS 


IF WE ARE AT THE DESTINATION NODE,WE CAN NOW COLLECT 
STATISTIC DATA. OTHERWISE, WE WLLL CONTINUE BREAKING 
DOWN THE UP-SIDE SLOT AS StGNMENTS 


~~» =» = = 3s 23.ChClUC OUlUlCUCOUCCDO 
—=—— -. 2s lUcrTlC rTOCUCUCNUCUCUSSOUlClC OOOO 


Palo: Ce eee ee Oe ee 
LET START TIME(MESSAGE) = TI V_- START Het a MIEE SCTE) 
Tete STATS .AT.END.BREAK.DOWN GIVEN MESSAG 
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LWAYS 
ET FM.NODE(MESSAGE) = TO.NODE(MESSAGE) 


HOR - = 1 TO 12 DO 
UP ees Fo NODE (MESSAGE) , I,1) EQ CKT.NUMBER (MESSAGE ) 


CW! NURI = 
LET TO.NODE MESSAGE) = TNFO( TMD NODE (MESSAGE) , Te) 
LET M_ = INFO (EM NOD (MESSAGE) 

LET RECSLOT (MESSAGE 

LET INFO(EM. NODE (ME SAGE) .M, 


e 
IL 


il 

0 

-NODE (MESSAGE ) ,1)=6 
0 


@ 
wo ws Phe» wv 
Wh» +e EE 
| ee ee 
m4 
WuwoOiw 


LET DIRECTION(MESSAGE) = -1 
GO TO COMPUTE. DELAY 

ALWAYS 

LOOP 


PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS 
CIRCUIT **** HAS FAULT IN EVENT TO.DEST.BREAKDOWN 
ae . OUTPUT LINE 


USES THE ASSIGNED TRANSMIT SLOT TO CARRY THE BD 
MESSAGE TO THE NEXT NODE UPSTREAM ON THE WAY TO 
THE DESTINATION NODE. 


CALCULATES WHEN THE BREAK DOWN MESSAGE WILL ARRIVE 
AT THE NEXT NODE 


=a =o lal rvOOlUUlUlUCUUCUCUCUC OU OU OOS 


t 
t 
' 
' 
' 
' 
' 
' 
' 
' 


,COMPUTE. DELAY ' 


IF _SLOT2.XMIT GT (CURRENT. SLOT + 1 

LET DELAY = SLOT2.XMIT - CURRENT. SLOT 
GO TO NEXT.BREAKDOWN 

ALWAYS 


IF SLOT2.XMIT_ EQ (CURRENT.SLOT + 1) 
LET DELAY 

GO TO NEXT.BREAKDOWN 

ALWAYS 


IF SLOT2.XMIT LT (CURRENT.SLOT + 1 

LET DELAY = SLOT2.XMIT - CURRENT.SLOT + 12 
GO TO NEXT.BREAKDOWN 

ALWAYS 


PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS. 
FAULT IN TO.DEST BD DELAY CALCULATION FOR CKT *7%* 
SKIP 1 OUTPUT LINE 

RETURN 


'NEXT. BREAKDOWN ' 

LET SLOT. ARRIVAL (MESSAGE) = SLOT2. XMIT 

LET INCREMENT = REAL F (DELAY) = SLOT. DURATION 
SCHEDULE AN TO.DEST. BREAKDOWN GIVEN MESSAGE 
AT TIME.V + INCREMENT 

GQ TO LAST.TO.DEST 

' RESPONSE. BREAKDOWN ' 


IF RECSLOT(MESSAGE) EQ 13 
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LET START.TIME(MESSAGE)) = TIME Vv Somedeukae Pee | 
ALWAYS STATS.AT.END.BREAK.DOWN GIVEN MESSAG 


TF RECSLOT (MESSAGE )> LE 
Hence THE MESSAGE CALLED MESSAGE 


5 


ToT anor ncme 


IF PRNT EQ 0 

PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY AT END OF TO.DEST.BREAKDOWN ARE 
LIST ATTRIBUTES OF MESSAGE 

SKIP 1 OUTPUT LINE 
ALWAYS 


TURN 
END '' TO.DEST.BREAKDOWN 


1 BWR wR www Ew Eww GaGa Ea EG Ew Es Ew Ewa E GEEKS EEEEESEESEEEES 
EVENT TO.ORG.BREAKDOWN GIVEN BDTOORG 


THIS EVENT BREAKS DOWN A ESTABED SHED Re cuit 
FROM THE DESTINATION £O THE SOURCESNOUE- 


IT REMOVES SLOT ASSIGNMENTS FROM THE NODAL SLOT 
ASSIGNMENT TABLES SO THAT THESE RELEASED SLOTS 
CAN BE USED IN THE ESTABLISHMENT OF OTHER CIRCUITS 


THIS EVENT SELECTS A RELEVANT PORTION OF PROGRAM BGG 
EXECUTE DEPENDING ON THE VALUE OF DIRECTION (MESSAGE ) 


1 : START BREAKING DOWN AN ESTABLISHED CIRCUIT FROM 
THE DESTINATION NODE TO THE SOUKGE 


2 : CONTINUE BREAKING DOWN AN ESTABLISHED CIRCUIT 
FROM AN INTERMEDIATE NODE TO THE SOURCE 


3. : START BREAKING DOWN FROM A NODE TO THE SOURCE 
CALLED BY REQUEST FOR SERVICE 


4 : START BREAKING DOWN FROM A NODE TO THE ORIGINATOR 
CALLED BY RESPONSE TO REQUEST 


T MESSAGE = BDTOORG 
DEFINE INCREMENT AS A REAL VARIABLE 


IF PRNT EQ 0 

PRINT 1 LINE WITH TIME.V_AS FOLLOWS... 
TO.ORG.BREAKDOWN PERFORMED AT TIME *o8%2 , soecsdeoes 
SKIP 2 OUTPUT LINES 

PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF THE AT START OF TO.ORG ARE 

LIST ATTRIBUTES OF MESSAG 

SKIP 2 OUTPUT LINES 


' ft 


IF TYPE(MESSAGE) EQ 1 


LES, 


aE ASIEN) = PARTIAL. BREAKDOWN 


ake 

LET CURRENT.SLOT = SLOT.ARRIVAL (MESSAGE) 

IF DIRECTION(MESSAGE) EQ 1 
GO TO ONE 

ALWAYS 

IF DIRECTION(MESSAGE) EQ 2 
GO TO TWO 

ALWAYS 

IF DIRECTION(MESSAGE) EQ 3 
GO TO THRE 

ALWAYS 

IF DIRECTION(MESSAGE) EQ 4 
GO TO FOUR 

ALWAYS 

'ONE' 


IF PRNT EQ O AND DIRECTION (MESSAGE ) | EQ.1 
PRINT 3 LINES WITH CKT.NU R (ME ) 
RIGINATOR(MESSAGE), DE TINATIO AS FOLLOWS 
SRART. TIME MESSAGE AND 


CKT we RM DE ** WAS ESTABLISHED FOR A CALL 
DURATION, OF ee ce eun® SECS IS BEING BROKEN “DOWN 
SKIP 2 OUTPUT LINES 

ALWAY 


LET rw NODE (MESSAGE) oe tIMEV 
Gel START .T he ees 2S dnc, Mie, 

mete BK .1TO.OR 

LET DIRECTION (MESSAGE) = 

| JUMP .IN' 


Hort = 1 TO 12 . DO 
IF INFO(FM. NODE (MESSAGE) , I,1) EQ CKT.NUMBER(MESSAGE) 
LET SLOT1.XMIT 
EET TO. NODE eentan Eur CEN } it} Ameena = 3)) 
LET MM = INFO(FM.NO E (MESSAGE 
LET RECSLOT(MESSA 
LET INEO FM. NODE ME SAGE) MM , 4) 
O(FM _NO E(MESSA E) MM, l 
LET INtO FM. NO SSAGE 1) 
AGE} Tt 
ie 
wes 


ODE (MESSAGE) ,1)=6 


) 


MM 
LET SPECINFO PM NODE (HES 
mel INFO( EM. ODE(MES AGE), 


nnoup 
OO2ZzO 


LET INFO(FM.NODE (MESSAGE 
LET DIRECTION(MESSAGE) = 2 
GO TO COMPUTE. DELAY 

ALWAYS 

LOOP 


EaeeNT | LINE WITH BS Ne ea AS FOLLOWS, 
FAULT IN EVENT TO.ORG.BREAKDOWN FOR CIRCUIT NO. ***** 
RR OUTPUT GENE 


' WE HAVE SET THE TRANSMIT AND RECEIVE SLOTS AT THE 
' DESTINATION NODE TO ZERO. 
' WE NOW BREAK DOWN THE CIRCUIT ALONG THE TO.ORG PATH 


-—_ = = ss 


Lal 


'' CHECK WHETHER WE ARE AT THE ORIGINATOR NODE, IF SO, 
'' WE NEED ONLY TO DELETE THE TRANSMIT AND RECEIVE 

'' SLOT ASSIGNMENTS FOR THIS CIRCUIT AND 

'Y COLLECT STATISTICS MDs 


LEX SLOn2- xMicw= RECSLOT MESSAGE ) 

Eh ShOn2eREG = TNEO (TO ODE (MESSA AGE), SLOT2.XMIT, 2) 
LET INFO(TO.NODE(MES AGE) ,§ 0 

LET SPECINFO(TO.NODE MES SAGE), FM. SY HE eaten 


Pew Ane eee ,obOr2  XhMibae 33 0 


LET INFO(TO.NODE(MESSAGE) ,SLOT2.XMIT, 3 
LET INFO(TO.NODE(MESSAGE) ,SLOT2.REC,4) 
= INFO(TO.NODE(MESSAGE) ,SLOT2.REC,4) - 1 


WE HAVE COMPLETED RELEASING THE UP-SIDE RECER Eeay 
TRANSMIT SLOT ASSIGNMENTS 


IF WE ARE AT THE ORIGINATOR NODE,WE CAN NOW COLLECT 
STATISTICS. OTHERWISE, WE WILL CONTINUE BREAKING 
DOWN THE DOWN SIDE SLOT ASSIGNMENTS 


Ce i | 
-=_ => = = «= ». = 2» 


IF TO.NODE(MESSAGE) E ORIGINATOR (MESSAGE ) 
LET START. TIME (MESSAGE TIME. V = STAR ale IRE Se) 
Ser ein STATS.AT.END.BREAK.DOWN GIVEN MESSAG 

ALWAYS 


LET ipa fae 8 = TO.NODE(MESSAGE) 


FOR I 190) WA 51. 

TF_INFO(RN. NODE (MESSAGE) | I,1) EQ CKT.NUMBER (MESSAGE) 
RED Or - NODE Cee pues .NODE(MESSAGE), 1.3) 
NOD Sa geen 
; il 
- NODE (MESSAGE) , I) 

0 


Q@) 
we Ld C- od 
Nes Ne NY 
rj 
Wow O ln, 


LET INFO(FM.NODE(MES ae 

LET INFO(FM. NODE MESSAGE i 

LET DIRECTION(MESSAGE) = 2 

GO TO COMPUTE. DELAY 
ALWAYS 
LOOP 
PRINT 1 LINE WITH_CKT. NUMBER (MESSAGE ) AS FOLLOWS 
CIRCUIT **** HAS FAULT IN EVENT TO.ORG.BEAKDOWN 
RETURN 
' THREE’ 


IF PRNT EQ 0 AND Pa egr NUMBER HESS EQ, 3 
PRINT 3 LINES WITH CKT .NUMBER (MESSAGE ) 
ORIGINATOR (MESSAGE) , TINATION (MESSAGE 
_ START. TIME (MESSAGE AND TIME.V_AS FOLLOW 
CKT *** FROM ** TO NOD ANNOT BE cen ae 
BEGIN TO BREAK DOWN THE CIRCUIT AT TIME *#7% | ose 
TIME NOW IS 
SKIP 2 OUTPUT LINES 
ALWAYS 


SZ 


LET DIRECTION (MESSAGE) 
GQ TO JUMP.IN 


' 


POUR’ 


IF PRNT EQ 0 AND DIRECTION (MESSAGE Re 
PRINT 3 LINES WITH CKT.NU "BER MES GE) 
ORIGINATOR (MESSAGE dE ESTINATION (MESSAGE) , 


- 


_ START. TIME (MESSAGE) ’ AN OW 
CKT ***** FROM NODE TO_** CANNOT, BE ESTABLISHED 
BEGIN TO BREAK DOWN THE CIRCUIT AT TIME ** 
TIME N S 
SKIP 2 OUTPUT LINES 
ALWA 


LET DIRECTION (MESSAGE) 
GQ TO JUMP.IN 
"COMPUTE. DELAY ' 


ies oLOT].XMIT Stn St SEOimaa 

LET DELAY = CURRENT. SLOT 
GO TO CAST. DOWN 
ALWAYS 


IF SLOTI ,XMIT EQ (CURRENT.SLOT + 1) 
LET DELAY 

@@ero LAST. DOWN 

ALWAYS 


ieoLOT].XMIT LT CURRENT. SGia 1 
MEE DELAY = SLOTL.XMIT CURRENT. cbOL +> 12 
GO TO LAST.DOWN 


ALWAYS 

PRINT 1 LINE WITH CKT.NUMBER(MESSAGE) AS FOLLOWS. 
FAULT IN TO.ORG.BD DELAY COMPUTATIO CKT sx 
RETURN 

"LAST. DOWN’ 

LET SLOT.ARRIVAL MESSAGE). 5 SLOT1.XMIT 

LET INCREMENT = REAL LAY) * SLOT.DURATION 


IF PRNT EQ 0 

PRINT 1 LINE AS FOLLOWS 

ATTRIBUTES OF ENTITY AT END OF TO.ORG.BD ARE 
LIST ATTRIBUTES OF MESSAGE 

SKIP 1 OUTPUT LINE 
ALWAYS 


SCHEDULE A TO.ORG.BREAKDOWN GIVEN MESSAGE 
AT TIME.V + INCREMENT 


RETURN 
END '' TO.ORG.BREAKDOWN 


TCL CeCe Te Ke Le Re RR LOK TC Ke Ke Ke Ke Ce Ke Le Ke Ke Re ROKR Le Ke Ke Ce Re EC Re Ke Re Re ROR Le Le Re Ke Ce RRC Te LKR 
UTINE FOR VIRTUAL.CKT GIVEN ESTABLISH.MSG 


-~ = WH - - 2 = 
-~- <Q ---- - 


THIS ROUTE COLLECTS STATISTICS ON CIRCUITS THAT ARE 


L338 


TABLISHED AND SCHEDULES me EVENTUAL 
SESTABLISHMENT ACCORDING TO AN EXPONENTIAL 
Geran FUNCTION WITH A MEAN CALL DURATION 


LET MESSAGE = ESTABLISH.MSG 
DEFINE CALL.END.TIME AS A REAL VARIABLES 


IF PRNT EQ 1 
PRINT 1 LINE WITH_TIME.V_AS FOLLOWS ||. |... 
ROUTINE VIRTUAL CIRCUIT PERFORMED AT ‘22s , seecrceses 
SKIP 1 OUTPUT LINE 

ALWAYS 


IF PRNT_EQ_0 
PRINT 1 LINE AS FOLLOWS 

ERTRIBUTES. OF ENTLTY WHEN VIRTUAL CKT WAS CALLED ARE 
LIST ATTRIBUTES OF MESSAGE 

SKIP 2 OUTPUT LINES 


ES 
DI 
DE 
OF 


Tt 


LET CKT.ESTAB = CKT. Ba ; L 

LET BK.TO.DEST = BK.TO. 1 

LET DELAY.SUM = DELAY. SUM . START. TIME MES Sack 
Leyak AVG.TIME.EST = DELAY.SUM /REAL. F (CKT.ESTAB 


'. DID THIS CIRCUIT TAKE THE MOST TIME 16> ES t2gitce 


eeShaRr: TIME (MESSAGE ) GT, LONG. TIME. EST 
LET L TART, TIME (MES EQ 
LET CKT. LONG. TIME.EST = CKT.NU BER (MES AGE) 


SCHEDULES THE TIME FOR THE NEWLY SES EAB LISHEDRCi: Glan 
TO BE ACTIVE AND SELECTS FROM EITHER ORIGINATOR NODE 
OR DESTINATION THE CIRCUIT TO BE DISESTABLISHED =nP 
SCHEDULES THE EVENT TO BREAK DOWN THE CIRCUIT 


a 


LET CALL.DURATION EXPONENTIAL. F (MEAN. CALL. DURATION, 6) 
LET CALE END. TIME CALL.DURATION + TIME.V 

LET SUM.DURATION = SUM.DURATION + CALL. DURATION 

LET AVG.DURATION = SUM.DURATION REAL. F(CKT.ESTAB) 

LET START. TIME(MESSAGE) = CALL. DURATION 

LET TYPE(MESSA E) = FU L. BREAKDOWN 


'. RANDOMLY SELECT A CURRENT SLOT 


' f 


LET SLOT. ARRIVAL (MESSAGE ) = RANDI. RG ia) 


TF PRN 
PRINT. 1 LINE WITH SLOT, .ARRIVAL(MESSAGE) AS FOLLOWS 
CIRCUIT BEGIN BREAKING DOWN 
SKIP 1 OUTPUT LINE 
ALWAYS 


t 


IF FAIR. POINTER EQ 1 
LET FAIR. POINTE 

LET FM.NODE MESSAGE) = ORIGINATOR (MESSAGE ) 
LET DIRECTION(MESSA E) 

SCHEDULE AN TO. DEST. EAKDOWN GIVEN MESSAGE 
AT CALL.END.TIME 

CO TO LAST. VIRTUAL 
ALWAYS 


Weoul 
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' 


IF _FAIR.POINTER EQ 0 
LET FAIR.POINTER = 1 
eer DIRECTION (MESSAGE) = 7 
SCHEDULE A TO.ORG.BREAKDOWN GIVEN MESSAGE 
AT CALL.END. TIME 
ALWAYS 


'LAST. VIRTUAL ' 


IF PRNT EQ 0 AND FAIR. POINTER EQ 9 
PRINT 3 LINES WITH CKT. NUMBER ESSAGE 

ORIG INATOR (MESSAGE ) TINATIO NIMESSAGE), 

TIME.V, CALL. DURAT én” AND CALL. END. TIM 

oF. ¢. ¢ % AS FOLLOWS ¢ 

CKT “ck FM NODE ** TO ** WAS ESTABLISHED AT TIME 
Hew wei AND HAS CALL DURATION OF peeRCs, 
BD WILL BEGIN IN THE TO.DEST DIRECTION AT ** 
SKIE 1 OUTPUT LINE 


IF PRNT EQ 0 AND FAIR. POINTER EQ 1 
PRINT 3 LINES WITH CKT. NUMBER ESSAG 
SEE cae teeta etm TINATIO NIMESSAGE ), 
TIME.V, CALL ON AN 


D CALL.END.TIM 
ti ¢ ) ¢ t UU 9 AS FOLLOWS e 
CKT we PM ** TO NODE ** WAS ESTABLISHED AT TIME 
wre wk AND HAS CALL DURATION OF SECS , 


BD WILL BEGIN IN THE TO.ORG DIRECTION AT “Seek RSE EL 
SKIP 1 OUTPUT LINE 
ALWAYS 


IF PRNT EQ 0 
PRINT 1 LINE AS FOLLOWS 

ATERIBUTES OF ENTITY AT END OF VIRTUAL.CKT ARE 
LIST ATTRIBUTES OF MESSAGE 
SKIP 2 OUTPUT LINES 

ALWAYS 


' t 


RETURN 
END ‘' VIRTUAL CKT 


BUG GGGRRww GGG GREGG wa GG GRE Gay RRGw aE GRRGwGGEERaaaaRREES 
UTINE FOR STATS.AT.END.BREAK.DOWN GIVEN B.D.MESSAGE 


HAT ARE BROKEN DOWN 


: ae ROUTENESCOLLEGTS SPATTISTICGS OF THE CIRCUIT 
! IT IS CALLED BY TO.DEST OR TO.ORG BREAKDOWN EVENTS 


T MESSAGE = B.D.MESSAGE 

DEFINE BD.TIME AS A REAL VARIABLE 

IF po Been EQ FULL.BREAKDOWN 
eaaiys. ESTAB = CKT.DISESTAB + 1 


LET CKTS.BD = CKT.DISESTAB + _ CKT. FAILED 
LET BK.TO.ORG BRO ORG 

LET BD.TIME = START. TIME (MESSAG a 

LET SUM.BD.TIME = SUM.BD.TIME + BD.TIME 


i> 


COLLECTS STATS ON THE BREAKDOWN OF PARTIAL 
ESTABLISHED CIRCUITS 


IF STARE TIMED? EQ PARTIAL BREAKDOWN 
IF START.TIME(MESSAGE) GT LONG.P.BD 
LET LONG. STAR . TIME (MESSAGE) 


LET AVG.BD.TIME = SUM.BD.TIME / REAL.F(CKTS.BD) 


LET TOTP. BD =_fOl{b baa Fas TIME (MESSAGE ) 
LED JP. BDSCOUN DER. Hs BD. COUN: 1 
air = TOT.P.BD | REA SFP. BD. COUNTER ) 


' # 


jkJe START TIME (P eae FULL. ORE NGMOR 
TP START Seen MES AG oe GT LONG.C.BD 
paisa LONG. STAR TIME (MESSAGE) 


LET TOT.C.BD = TOT.C.BD + START. TIME (MESSAGE) 
LET C.BD.COUNTER = CBD. COUNTER + 1 
sLELAVG.C.BD = TOT.C.BD / REAL. F(C. BD. COUNTER) 


t 


DESTROY THE MESSAGE CALLED MESSAGE 
RETURN 
D '' STATS AT END BREAKDOWN 


EN 

17 POPPSSPPSSSSSSSSSSSSSSSSSSISSsSSSSPSSsISFF$S$Hs$ssssss 
EVENT HALT.SIMULATION SAVING THE EVENT NOTICE 
LE 


THIS ROUTINES HALTS THE PROGRAM AND PRINTS 
STATISTICS AND ANALYSIS STATEMENTS 


T PRNT .COUNTER = PRN COUNTER. + = 


START NEW PAGE 

PRINT 1 LINE WITH PRNT.COUNTER AS FOLLOWS 
THIS IS THE ** TH SIMULATION RUN 

SKIP i OUTPUT LINE 


LET FRACT.SUCCESSFUL.CALL = REAL SF (GKTSES TAD es LoGme @ 
REAL. F(CKT.SUM 
LET FRACT.LOST.CALL = 100.0 - FRACT. UCCESSFUL. CALL 


PRINT 15 LINES WITH CKT.SUM, CKT.ESTAB, CKTDISESTAB, 
CKT.FAILED, OFFERED. TRAFFIC, AVG.TIME. 
LONG. TIME.EST,CKT.LONG. TIME: EST, AVG DURATION 
P.BD.COUNTER, C.BD.COUNTER, AVG:C.BD, SLOT.DEPTH, 
FRACT. SUCCESSFUL.CALL AND FRACT.LOST: CALL 
AS_ FOLLOWS 
STATISTICS OF THIS SIMULATION > 
NUMBER OF CIRCUIT CREATED SO FAR a 
NUMBER OF CIRCUIT ESTABLISHED = ***? —— 
NUMBER OF ESTABLISHED CKTS THAT ARE DISESTABLISHED ***%* 
NUMBER OF CIRCUITS WERE NOT ESTABLISHED = 
OFFERED TRAFFIC IS * ine 
AVERAGE TIME TO ESTABLISH A CKT deter severe deren wan 
LONGEST TIME TO ESTABLISH A CKT = 20 vecette® AT CKT tee 
AVERAGE DURATION OF AN ESTABLISHED CIRCUITS = %*% see 
NUMBER OF PARTIALLY ESTABLISHED CIRCUITS = *%*** 
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NUMBER OF FULLY ESTABLISHED CIRCUITS = **** 


AVERAGE TIME TO BREAK DOWN A COMPLETED CKT = %%*2% , *c¥oe+% 


SLOT DEPTH IS ** Ree eee 
PERCENTAGES OF SUCCESSFULL CALL = xuvs. #ux%s 
PERCENTAGES OF LOST CALL tetedeck 

SKIP 3 OUTPUT LINES 


4 


FOR NODE = 1 TO 
RESERVE SOT. BER. FRAME (* og 12 
LET EMPTY = 0 


LET TRANSMIT. SLOTS = 0 
Met RECEIVE.SIGS = 0 
LET REC.SLOTS = 0 


LET RECEIVE jh) SE = RECEIVE. SIGS + INFO(NODE,S,4) 
LET REC. Ce = REC.SLOTS 

LET SLOTS.PER.FRAME(S) = INFO(NODE,S,4) 

GO TO OUT 


ALWAYS 


19 INFO (NODE S CLO 
LET Eee at: TS = 
LET ERaRe. MER FRAME (S 
GO TO OUT 

ALWAYS 


IF INEO(NODE, § ce obey EQ 0 AND ee EQ 0 
MEL SLOTS. PER. MP RAME(S) = 
LWAYS 


ff 


iT 1 
NFO(NODE,S,3) 


' 
BOUT ' 
_,_ LOOP 
PRINT 2 LINES WITH NODE EMPTY, TRANSMIT.SLOTS 
7 -RECEIVE.SIGS AND, 'REC.SLOTS AS FOLLOWS 
NODE, =* HAS ** EMPTY SLOT TRANSMIT SLOTS, AND 


HAS ** RECEIVE SIGNALS aca IN ** RECEIVE SLOTS 
SKIP 2 OUTPUT LINES 


PRINT THE TIME SLOT ASSIGNMENT AT EACH NODE 


= -—=— = w@ 
— = = <<. 


PRINT 1 er eee Sy OM byes) 2) pRAME GD 


PER. FRAME 
SLOTS .PER. FRAME SOs. PER. FRAME(4), 
SEOs. FER..FPRAME eSHOLS. PERSE RAMEC6 

SLOTS .PER. FRAME ; SLOTS. PER. FRAME 5 


SLOTS .PER. FRAME ’SLOTS. PER. FRAME 
. FRAME d 
ER.F (2) 


ae se ae #e FB F% rd ¢ 


FALWONIUN Go foe 


—n 
Sy 
o) 
aa 
—n 

@ 5, 
7 
eps 

Uiror 


D SLOTS 
ale ste s'e se se s' 'o ahe sie ste ates! A 2. muy 0 LLOQ WS 
SKIP 2 OUTPUT LINES 


RFORM TERMINATION 
TURN 
oe )6)6CUHALT ..SIMULATION 
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ate 


Pa 


1 BRS GSR Ek Sw Gk SEE GS GSES GS Gk Ek Gk GSES ESE k ESSE ESE kSSEESEEE 
ROUTINE FOR TERMINATION 


FOR EACH NEW.CALL IN EV.S(I.NEW.CALL), DO 
CANCEL THE NEW.CALL 
ee THE NEW.CALL 


FORM COCH REGUEST SEO: Se IN EV.S(1.REQUEST: FOR Ss, Gone 
CANCEL THE REQUEST. FOR. 
OG Cee THER QUEST. FOR, SVC 


FOR BACH RESPONSE. TO {REQUEST 
IN ila (re RESPONSE. TO, os eT le DO 


DESEROY “LEE RESPONSE. TO. REQUEST 
L9OP 


FOR EACH TO.DEST.BREAKDOWN 

PN GEV ese TO.DEST. BREA SE) DO 
CANCEL THE TO.DEST.BREAKDOWN 
DESTROY THE TO.DEST. BREAKDOWN 

LOOP 

FOR EACH TO.ORG. BREAKDOWN 

IN EV. S (i100 ORG BREAKDOWN ), DO 
CANCEL THE TO.ORG.BREAKDOWN 

Ste \ eae THE TO.ORG. BREAKDOWN 


FOR EACH YEN.ROUTING IN EV.S(I.YEN.ROUTING), DO 
CANCEL THE YEN.ROUTING 
LO0B THE YEN.ROUTING 


en EACH SLOT.FOR.YEN IN EV.S(1L.SLOT. FOR Eh o 
NCEL THE SLOT.FOR. YEN 
DESTROY THE SLOT.FOR. YEN 


t f 


FOR EACH NSLOT.FOR.YEN IN EV.S(I-NSLOT. POR] YEN ooo 
CANCEL THE NSLOT.FOR. YEN 
LOOB THE NSLOT. FOR. YEN 


FOR EACH HALT.SIMULATION IN EV.S(21.HALT SIMULATION De 
CANCEL THE HALT.SIMULATION 
ae THE HALT. SIMULATION 


t f 


RETURN 
END TERMINATION 
{/GO.S¥SIN DD * 

1 0 1 O) 0) SON 0 oe 
1 O. 1 © 2 OF Crom nO 
0,10 1°90) 1 20 One conn 
10%.1-0° 1 0} 1 Comment 
ee lee OL 
0-051 09 10 Or omen 
0 0 0 1: 40 OR, pO ee 
0. 01-0 O00) Siac ae moet 
I> 60 a0 40000) ls 10m One 
0 | 1.0 0) MONO .s SOs leone 
10. 1 0.90 0. Oem 
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